AD-A223  025 


:3  FiLh  COPY 


(D 


NUMERICAL  SOLUTIONS  FOR  A  CYLINDRICAL 

LASER  DIFFUSER  FLO WF I  ELD 

DISSERTATION 

James  A.  Horkovich 
Lieutenant  Colonel,  USAF 

AFIT/DS/ENY/90 -  3 


ri’'\  *r 

■  f  5  i 

C  v  4, 


!=30  f| 

i  k 

eh 


‘f 

&  c 


Approved  for  public  release;  distribution  unlimited 


^  A* 


AFI T/DS/ENY/90 -  3 


NUMERICAL  SOLUTIONS  FOR  A  CYLINDRICAL 


Accession  For 

NTIS  GFtASbl 
DTIC  TAB 

Unannounced 

Ju:.  t  if  ic;.t  ion_ 


I 


LASER  DIFRSER  FLOY  FI  ELL 


DISSERTATION 


I 


Presented  to  the  Faculty  of  the  School  of  Engineering 
of  the  Air  Force  Institute  of  Technology 
Air  University 

In  Partial  Fulfillment  of  the 
Requirements  for  the  Degree  of 
Doctor  of  Philosophy 


James  A.  Horkovich,  B.  S.,  M.  S. 
Lieutenant  Colonel,  USAF 


June  1990 

Approved  for  public  release;  distribution  unlimited 


NUMERICAL  SOLUTIONS  FOR 


Approved : 


A  CYLINDRICAL  LASER 
DIFFUSER  FLOWFIELD 


by 

James  A.  Horkovich,  B.S.,  M.S. 
Lt  Col,  USAF 


//LtAy^  0^^ - 

Chairman 


Zh-u-,^v  rSb 


3AJA^l9 

21/  Myj  ?  d 


Accepted : 


CONTENTS 


ACKNOWLEDGEMENTS  .  iii 

LIST  OF  FIGURES  .  v 

LIST  OF  TABLES  .  xii 

NOTATION  .  xiii 

ABSTRACT  .  xviii 

INTRODUCTION  .  1 

1.1  BACKGROUND  .  1 

1.2  RESEARCH  OBJECTIVES  .  11 

MATHEMATICAL  DESCRIPTION  OF  THE  FLOW  STRUCTURE  .  17 

2.1  GOVERNING  EQUATIONS  .  17 

2.2  BOUNDARY  AND  INITIAL  CONDITIONS  .  24 

NUMERICAL  PROCEDURE  .  29 

3.1  COORDINATE  SYSTEM  .  29 

3.2  SOLUTION  ALGORITHM  .  34 

3.3  CONVERGENCE  CRITERIA  .  42 

BOUNDARY  AND  INITIAL  CONDITION  IMPLEMENTATION  .  46 

4.1  THE  UPSTREAM  BOUNDARY  .  46 

4.2  THE  DOWNSTREAM  BOUNDARY  .  46 

4.3  THE  LINE  OF  SYMMETRY  .  47 

4.4  THE  DIFFUSER  WALLS  .  47 

4.5  INITIAL  CONDITIONS  .  49 

TURBULENCE  MODELING  .  50 

5.1  BOUNDARY  LAYER  MODEL  .  51 

5.2  THE  CORE  FLOW  REGION  .  53 

5.3  ADVERSE  PRESSURE  GRADIENT  MODIFICATIONS  .  55 

NUMERICAL  RESULTS  .  59 

6.1  EXPERIMENTAL  DATA  BASE  .  59 

6.2  COMPUTATIONAL  DETAILS  .  65 

6.3  COMPARISON  WITH  EXPERIMENTAL  DATA  .  149 

6.4  EDDY  VISCOSITY  TURBULENCE  MODEL  BEHAVIOR  .  160 

6.5  INVESTIGATION  OF  NUMERICAL  ERROR  .  164 

CONCLUSIONS  AND  RECOMMENDATIONS  .  176 

BIBLIOGRAPHY .  181 

APPENDIX  A:  Vectorized  Navier-Stokes  Computer  Code  With  Adverse 
Pressure  Gradient  Modified  Eddy  Viscosity  Turbulence 
Model  .  1 S S 

APPENDIX  B:  Tabulated  Inflow  Properties  From  UTRC  Data .  212 

i 


214 


APPENDIX  C:  Numerical  Case  la  Computational  Details 

APPENDIX  D:  Numerical  Case  lb  Computational  Details .  225 

APPENDIX  E:  Numerical  Case  2a  Computational  Details .  240 

APPENDIX  F:  Numerical  Case  2b  Computational  Details .  258 

APPENDIX  G:  Numerical  Case  3  Computational  Details .  278 

APPENDIX  H:  Numerical  Case  4a  Computational  Details .  290 

APPENDIX  I:  Numerical  Case  4b  Computational  Details .  318 

APPENDIX  J:  Numerical  Case  4c  Computational  Details .  329 

APPENDIX  K:  Numerical  Case  4d  Computational  Details .  338 

APPENDIX  L:  Numerical  Case  4e  Computational  Details .  348 

APPENDIX  M:  Computational  Grid  Details .  358 

AFPENDIX  N:  Richardson's  Extrapolation  Technique  (Case  4a  Solution)...  364 
VITA  .  369 


1 1 


ACKNOWLEDGEMENTS 


This  dissertation  represents  over  seven  years  of  research  conducted 
while  I  was  assigned  first  to  the  Air  Force  Institute  of  Technology,  and 
subsequently  to  the  Advanced  Radiation  Technology  Directorate,  Air  Force 
Weapons  Laboratory,  Kirtland  Air  Force  Base,  New  Mexico.  I  wish  to  take  this 
opportunity  to  express  appreciation  to  the  Air  Force  for  the  chance  to  further 
my  education  and  to  the  staff  of  the  Computational  Aerodynamics  Group  of  the 
Air  Force  Flight  Dynamics  Laboratory  who  provided  outstanding  support  and 
encouragement  while  this  research  was  in  progress. 

I  am  deeply  indebted  to  many  people  for  their  guidance  and  patience. 
Special  thanks  are  due  to  Dr.  Joseph  S.  Shang,  who  served  as  my  technical 
advisor,  for  his  advice  and  counsel  on  a  nearly  daily  basis.  Sincere  thanks 
are  extended  to  the  members  of  the  AFIT  faculty  who  served  on  my  committee.  I 
am  indebted  to  my  original  committee  chairman,  Lt.  Col.  James  K.  Hodge,  and  to 
Dr.  Wilbur  L.  Hankey,  for  their  initial  guiding  direction.  I  am  grateful  for 
the  constructive  support  and  criticism  provided  by  Captain  Philip  Beran,  who 
replaced  Lt.  Col.  Hodge  as  chairman.  Steadfast  support  was  also  provided  by 
Dr.  John  Jones  throughout  this  effort.  Lt.  Col.  Gerald  Hasen  provided  key 
encouragement  and  technical  advice  which  were  instrumental  in  bringing  this 
research  to  conclusion. 

Special  mention  must  be  made  of  the  cooperation  of  Dr.  Roy  Guile  and 
Mr.  Frank  Zumpano  of  the  United  Technologies  Research  Corporation,  who 
provided  ready  access  to  their  experimental  data  and  were  among  those  who 
helped  keep  this  research  on  track.  Additionally,  sincere  thanks  are  due 
Colonel  Robert  C.  Bower,  USAF  (Air  Force  Weapons  Laboratory)  for  essential 
support  from  the  genesis  of  this  project. 


iii 


I  wish  to  express  my  love  and  deep  gratitude  to  my  wife,  Betsy,  for 


her  encouragement,  patience,  and  understanding. 

I  dedicate  this  effort  to  the  loving  memory  of  my  mother,  Amelia  Rauba 
Horkovich  Patti,  who  taught  me  at  a  very  young  age  that  one  of  the  finest 
endeavors  man  can  aspire  to  is  che  application  of  the  mind  for  the  expansion 
of  knowledge. 


MxJL 


James  A.  Horkovich 


May  1990 


iv 


LIST  OF  FIGURES 


Figure  Page 

1  Radial  SDL  Schematic .  3 

2  Radial  SDL  Cross  Section .  3 

3  Cylindrical  Normal  Shock  Configuration .  4 

4a  Schematic  Drawing  of  Baseline  Diffuser  Configuration, 

Viewed  Along  Simulated  Beam  Path .  13 

4b  Schematic  Drawing  of  Baseline  Diffuser  Configuration, 

Sectional  View  AA .  13 


5  Three-Dimensional  Schematic  Drawing  of 

Diffuser/Nozzle  Configuration .  14 

6  Photograph  of  Experimental  Nozzle  Array  (Ref.  13) .  15 

7  Cross-Sectional  Schematic  Drawing  of 

Diffuser/Nozzle  Configuration .  16 

8  Computational  Domain .  25 

9  Computational  Grid .  30 

10  Exponentially  Stretched  Mesh  Schematic .  32 

11  Computational  Mesh  in  the  Transformed  Plane .  33 

12  Graphical  Representation  of  the  Sweep  Operators .  37 

13  Characteristic  Time  Calculation .  44 

14  Sample  Convergence  Time  History .  45 

15  Eddy  Viscosity  Distribution  Across  a  Boundary  Layer...  54 

16  Variation  in  Clauser's  Constant  (k2)  With 

Nondimensionalized  Adverse  Pressure  Gradient .  58 

17  Experimental  Diffuser  Entrance  Flowfield  Conditions; 

Mach  Number,  Static  Pressure,  Stagnation  Pitot 

Pressure  (Ref.  13) .  60 

18  Vaneless  Diffuser  Experimental  Performance  (Ref.  13)..  63 


v 


19 


Cylindrical  Vaneless  Diffuser  Performance; 

Experimental  Shock  Positions  Compar'd  With  One- 
Dimensional  Isentropic  Expansion  to  Inviscid 
Normal  Shock  Condition  (Ref.  13) .  63 

20  Time  History  of  Normalized  Core  Flow  Normal  Shock 
Position  (SPOS) ;  Navier-Stokes  Code  with  Basic 
Cebeci-Smith  Turbulence  Model;  60%  NSR;  Zero  Wall 

Bank  Blower  (Case  la) .  67 

21  Core  Flow  Normal  Shock  Position  Time  History,  Case  lb 

(Uniform  Inflow,  60%  NSR,  wbb  ■=  0,  modified  Cebeci- 
Smith  Turbulence  Model) .  68 

22  Core  Flow  Normal  Shock  Position  Time  History,  Case  2a 

(Ideal  Inflow,  60%  NSR,  wbb  -  .2,  basic  Cebeci-Smith 
Turbulence  Model) .  69 

23  Ideal  Inflow  Velocity  Profile .  70 

24  Ideal  Inflow  Velocity  Vector  Plot .  70 

25  Ideal  Inflow  Mach  Number  Profile .  71 

26  Ideal  Inflow  Momentum  Profile .  71 

27  Core  Flow  Normal  Shock  Position  Time  History,  Case  2b 
(Ideal  Inflow,  60%  NSR,  wbb  =  .2,  modified  Cebeci- 

Smith  Turbulence  Model) .  74 

28  Converged  Solution  Mach  Contours,  Case  2b .  74 

29  Selected  Individual  Mach  Contours,  Case  2b  Solution...  75 

30  Velocity  Profiles,  Case  2b  Converged  Solution .  76 

31  Velocity  Vector  Plot,  Case  2b  Converged  Solution .  77 

32  Velocity  Vector  Plot,  Case  2b  Converged  Solution, 

Expanded  View  Showing  Separation  Region  Detail .  77 

33  Case  2b  Converged  Solution  Flowfield  Conditions; 

a)  Wall  Pressure  Ratio;  b)  Line  of  Symmetry  Pressure 
Ratio;  c)  Line  of  Symmetry  Temperature  Ratio .  78 

34  Plot  of  Case  2b  Converged  Solution  Kinematic 

Displacement  Thickness .  79 

35  Core  Flow  Normal  Shock  Position  Time  History,  Case  2c 
(Ideal  Inflow,  47%  NSR,  wbb  -  .2,  modified  Cebeci- 

Smith  Turbulence  Model) .  81 

vi 


36  Converged  Solution  Mach  Contours,  Case  2c .  81 

37  Selected  Individual  Mach  Contours,  Case  2c  Solution...  82 

38  Velocity  Profiles,  Case  2c  Converged  Solution .  83 

39  Velocity  Vector  Plot,  Case  2c  Converged  Solution 

a)  Full  Computational  Domain;  b)  Expanded  View  Showing 
Separation  Region  Detail .  84 

40  Case  2c  Converged  Solution  Flowfield  Conditions; 

a)  Wall  Pressure  Ratio;  b)  Line  of  Symmetry  Pressure 
Ratio;  c)  Line  of  Symmetry  Temperature  Ratio .  85 

41  Plot  of  Case  2c  Converged  Solution  Kinematic 

Displacement  Thickness .  86 

42  Comparison  of  Case  2b  and  2c  Converged  Solution 

Mach  Contours .  87 

43  Core  Flow  Normal  Shock  Position  Time  History,  Case  3a 

(Long  Duct  Diffuser,  Uniform  Inflow,  60%  NSR,  wbb  =  0, 
modified  Cebeci-Smith  Turbulence  Model) .  90 

44  Converged  Solution  Mach  Contours,  Case  3a .  91 

45  Case  3a  Converged  Solution  Mach  Contours;  Close-up 

of  Long  Diffuser  Length  Corresponding  to  Baseline 
Diffuser .  92 

46  Selected  Individual  Mach  Contours,  Case  3a  Solution...  93,94 

47  Velocity  Profiles,  Case  3a  Converged  Solution .  95 

48  Velocity  Vector  Plot,  Case  3a  Converged  Solution .  96 


49  Case  3a  Converged  Solution  Velocity  Vector  Plot; 

a)  Expanded  View  Corresponding  to  Baseline  Diffuser 
Length;  b)  Expanded  View  Showing  Separation  Region 


Detail .  97 

50  Case  3a  Converged  Solution  Flowfield  Conditions; 

a)  Wall  Pressure  Ratio;  b)  Line  of  Symmetry  Pressure 

Ratio;  c)  Line  of  Symmetry  Temperature  Ratio .  98 

51  Plot  of  Case  3a  Converged  Solution  Kinematic 
Displacement  Thickness;  a)Full  Diffuser  Length; 

b)  Length  Corresponding  to  Baseline  Diffuser .  99 

52  Core  Flow  Normal  Shock  Position  Time  History,  Case  3b 

(Long  Duct  Diffuser,  Uniform  Inflow,  47%  NSR,  wbb  =  0, 
modified  Cebeci-Smith  Turbulence  Model) .  101 


vii 


53  Converged  Solution  Mach  Contours,  Case  3b .  102 

54  Case  3b  Converged  Solution  Mach  Contours;  Close-up 

of  Long  Diffuser  Length  Corresponding  to  Baseline 
Diffuser .  103 

55  Selected  Individual  Mach  Contours,  Case  3a  Solution...  104,105 

56  Velocity  Profiles,  Case  3b  Converged  Solution .  106 

57  Velocity  Vector  Plot,  Case  3b  Converged  Solution .  107 

58  Case  3b  Converged  Solution  Velocity  Vector  Plot; 

a)  Expanded  View  Corresponding  to  Baseline  Diffuser 
Length;  b)  Expanded  View  Showing  Separation  Region 
Detail .  108 

59  Case  3b  Converge'’  Solution  Flowfield  Conditions; 

a)  Wall  Pressure  Ratio;  b)  Line  of  Symmetry  Pressure 

Ratio;  c)  Line  of  Symmetry  Temperature  Ratio .  109 

60  Plot  of  Case  3b  Converged  Solution  Kinematic 
Displacement  Thickness;  a)Full  Diffuser  Length; 

b)  Length  Corresponding  to  Baseline  Diffuser .  110 

61  Actual  Inflow  Velocity  Conditions  (Ref.  13); 

a)  Velocity  Profile;  b)  Velocity  Vector  Plot .  114 

62  Actual  Inflow  Mach  Number  Profile  (Ref.  13) .  115 

63  Actual  Inflow  Momentum  Profile  (Ref.  13.) .  116 

A 4  Core  Flow  Normal  Shock  Position  Time  History,  Case  4a 

(Actual  Inflow,  60%  NSR,  wbb  *»  .195, 

modified  Cebeci-Smith  Turbulence  Model) .  116 

65  Converged  Solution  Mach  Contours,  Case  4a .  117 

66  Computer  Generated  (Simulated)  Schlieren  Photograph, 

Case  4a  Converged  Solution .  118 

67  Computer  Generated  (Simulated)  Schlieren  Photograph, 

Case  4a  Converged  Solution;  Detail  of  Wall  Bank 

Blower .  119 

68  Velocity  Profiles,  Case  4a  Converged  Solution .  120 

69  Velocity  Vector  Plot,  Case  4a  Converged  Solution .  121 

70  Sonic  Contour,  Case  4a  Converged  Solution .  122 

71  Selected  Individual  Mach  Contours,  Case  4a  Solution...  123 


viii 


4 


72  Case  4a  Converged  Solution  Flowfield  Conditions; 

a)  Wall  Pressure  Ratio;  b)  Line  of  Symmetry  Pressure 
Ratio;  c)  Line  of  Symmetry  Temperature  Ratio .  124 

73  Plot  of  Case  4a  Converged  Solution  Kinematic 

Displacement  Thickness .  125 

74  Eddy  Viscosity  Coefficient  Detail,  Case  4a  Converged 

Solution  ( j  =10 ,  20,  30) .  126 

75  Eddy  Viscosity  Coefficient  Detail,  Case  4a  Converged 

Solution  ( j=40 ,  50,  60) .  127 

76  Eddy  Viscosity  Coefficient  Detail,  Case  4a  Converged 

Solution  (j-70,  80,  90) .  128 

77  Eddy  Viscosity  Coefficient  Detail,  Case  4a  Converged 

Solution  (j-100) .  129 

78  Core  Flow  Normal  Shock  Position  Time  History,  Case  4b 
(Actual  Inflow,  47%  NSR ,  wbb  =  .195, 

modified  Cebeci-Smith  Turbulence  Model) .  132 

79  Converged  Solution  Mach  Contours,  Case  4b .  133 

80  Velocity  Profiles,  Case  4b  Converged  Solution .  134 

81  Velocity  Vector  Plot,  Case  4b  Converged  Solution .  135 

82  Sonic  Contour,  Case  4b  Converged  Solution .  136 

83  Selected  Individual  Mach  Contours,  Case  4b  Solution. . .  137 

84  Case  4b  Converged  Solution  Flowfield  Conditions; 

a)  Wall  Pressure  Ratio;  b)  Line  of  Symmetry  Pressure 
Ratio;  c)  Line  of  Symmetry  Temperature  Ratio .  138 

85  Plot  of  Case  4b  Converged  Solution  Kinematic 

Displacement  Thickness .  139 

86  Eddy  Viscosity  Coefficient  Detail,  Case  4b  Converged 

Solution  ( j  =  1 0  ,  20,  30) .  140 

87  Eddy  Viscosity  Coefficient  Detail,  Case  4b  Converged 

Solution  (j-40,  50,  60) .  141 

88  Eddy  Viscosity  Coefficient  Detail,  Case  4b  Converged 

Solution  (j-70,  75,  80) .  142 

89  Eddy  Viscosity  Coefficient  Detail,  Case  4b  Converged 

Solution  (j-90,  100) .  143 


90  Core  Flow  Normal  Shock  Position  Time  History,  Case  4c, 
(Actual  Inflow,  47%  NSR,  wbb  ■=  .195,  Basic  Cebeci- 

Smith  Turbulence  Model .  144 

91  Core  Flow  Normal  Shock  Position  Time  History,  Case  4d, 

(Actual  Inflow,  47%  NSR,  wbb  =  .195,  Inner  Region 
Turbulence  Model  Variation .  146 

92  Core  Flow  Normal  Shock  Position  Time  History,  Case  4e , 

(Actual  Inflow,  47%  NSR,  wbb  =  .195,  Outer  Region 
Turbulence  Model  Variation .  148 

93  Comparison  of  Experimental  and  Computational  Solution 

for  Core  Flow  Normal  Shock  Position . 151 

94  Converged  Numerical  Solution  Mach  Contours,  60%  NSR...  153 

95  Schlieren  Photograph,  60%  NSR  Experimental  Results....  153 

96  Converged  Numerical  Solution  Mach  Contours,  47%  NSR...  153 

97  Schlieren  Photograph,  47%  NSR  Experimental  Results....  153 

98  Experimental  Wall  Pressure  Data  (Ref.  13) .  155 

99  Comparison  of  Numerical  With  Experimental  Wall 

Pressure  Data,  Case  4a  (60%  NSR,  Actual  Inflow) .  157 

100  Comparison  of  Numerical  With  Experimental  Wall 

Pressure  Data,  Case  4b  (47%  NSR,  Actual  Inflow) .  158 

101  Ratio  of  Modified  to  Basic  Eddy  Viscosity,  Case  4a 

(60%  NSR,  Actual  Inflow) .  162 

102  Ratio  of  Modified  to  Basic  Eddy  Viscosity,  Case  2b 

(60%  NSR,  Ideal  Inflow) .  162 

103  Ratio  of  Modified  to  Basic  Eddy  Viscosity,  Case  4b 

(47%  NSR,  Actual  Inflow) .  163 

104  Ratio  of  Modified  to  Basic  Eddy  Viscosity,  Case  2c 

(47%  NSR,  Actual  Inflow) .  162 

105  Comparison  of  Numerical  Mach  Contour  and  Wall 

Pressure  Solutions,  60%  NSR  Ideal  Inflow  Solution .  166 

106  Comparison  of  Computed  Wall  Pressure  Ratio;  3  Test 

Grids,  60%  NSR  Ideal  Inflow  Solution .  167 

107  Comparison  of  Mach  Contours,  60%  NSR  Actual  Inflow 
Case;  Numerical  Solutions  for  70X103  and  140X103 

Grids .  168 


x 


108a 


Computed  Wall  Pressure  Ratio  Comparison,  60%  NSR 
Actual  Inflow  Solution,  70X103  and  140X103  Grids 


169 


108b  Richardson's  Extrapolation  for  Wall  Pressure  Ratio, 

60%  NSR  Actual  Inflow  Solution,  derived  from  70X103 

and  140X103  Grid  Solutions .  169 

109a  Damping  Ratio  Contours,  60%  NSR  Actual  Inflow 

Numerical  Solution .  172 

109b  Damping  Ratios,  60%  NSR  Actual  Inflow  Numerical 

Solution .  172 

110a  Damping  Ratio  Contours,  60%  NSR  Ideal  Inflow 

Numerical  Solution .  173 

110b  Damping  Ratios,  60%  NSR  Ideal  Inflow  Numerical 

Solution .  173 

111a  Damping  Ratio  Contours,  47%  NSR  Actual  Inflow 

Numerical  Solution .  174 

111b  Damping  Ratios,  47%  NSR  Actual  Inflow  Numerical 

Solution .  174 

112a  Damping  Ratio  Contours,  47%  NSR  Ideal  Inflow 

Numerical  Solution .  175 

112b  Damping  Ratios,  47%  NSR  Ideal  Inflow  Numerical 

Solution .  175 


xi 


LIST  OF  TABLES 


Table  Page 

I  Nominal  Core  Flow  Entry  Conditions .  61 

II  Summary  of  Numerical  Cases .  64 

III  Comparison  of  Computed  Shock  Positions .  152 

IV  Numerical  Case  la  Computed  Shock  Position  Vs  Time .  215 

V  Numerical  Case  lb  Computed  Shock  Position  Vs  Time .  227 

VI  Numerical  Case  2a  Computed  Shock  Position  Vs  Time .  242 

VII  Numerical  Case  2b  Computed  Shock  Position  Vs  Time .  259 

VIII  Numerical  Case  4a  Computed  Shock  Position  Vs  Time .  291 

IX  Numerical  Case  4b  Computed  Shock  Position  Vs  Time .  319 

X  Numerical  Case  4c  Computed  Shock  Position  Vs  Time .  330 

XI  Numerical  Case  4d  Computed  Shock  Position  Vs  Time .  339 

XII  Numerical  Case  4e  Computed  Shock  Position  Vs  Time .  349 


xii 


NOTATION 


Symbols 

A+  Sublayer  thickness  parameter,  eqn  5-2. 

C  Constant  used  to  obtain  exponentially  stretched  mesh. 

Adaptive  mesh  constant. 

2 

C,.  Local  skin  friction  coefficient,  2t  /p  u 

C  Specific  heat  at  constant  pressure. 

P 

C  Specific  heat  at  constant  volume, 

v 

c  Speed  of  sound,  ► yRT . 

E  Error  vector. 

2  2 

e  Energy,  C^T  +  (u  +  v  )/2. 

F  Flux  vector,  eqn  2-28. 

Fd  Damping  vector,  eqn  3-29. 

f  Primitive  flow  variable  p,  u,  v,  or  T. 

G  Flux  vector,  eqn  2-28. 

Damping  vector,  eqn  3- 

H  Flux  vector,  eqn  2-28. 

H  Total  Enthalpy,  C  T  +  (u^  +  v^)/2. 

o  p 

i  Index  for  grid  points  in  the  axial  direction. 

IL  Total  number  of  grid  points  in  the  axial  direction. 

•JL  Total  number  of  grid  points  in  the  radial  direction. 

j  Index  for  grid  points  in  the  radial  direction. 

j  Exponent  parameter  equal  to  0  or  1  for  two-dimensional  or 

axisymmetr ic  flow,  respectively. 

k^  von  Karmen  constant,  eqn  5-2. 

Clauser  constant,  eqn  5-3. 
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V  LC 


Thermal  conductivity. 

Length  scale. 

Length  scale  used  to  generate  stretched  mesh. 

MacCormack  difference  operators  in  the  n  and  £  directions, 

Prandtl  turbulent  mixing  length. 

?  ?  } ; 

Mach  number,  (u‘  +  v“)  ‘/c. 

Static  pressure. 


Pitot  pressure  (stagnation  value) 


Pitot  static  pressure. 


Prandtl  number,  uC  /k. 

P 

Heat  flux  vector. 


<1  >  q 
x  ^r 


Heat  flux  in  the  axial  and  radial  directions, 

Gas  constant  for  air. 

9  2  V 

Reynolds  number,  p(u"  +  v  )?L/p. 


Spatial  coordinate  normal  to  source  nozzle  centerline 
(parallel  to  diffuser  wall). 

Fluid  stress  tensor  that  includes  pressure  and  viscous  fore 
Absolute  temperature. 

Stagna t ion  tempera ture . 


Time . 


Characteristic  time,  eqn  3-35. 

Conservative  flow  variable  vector,  eqn  2-28. 
Velocity  vector. 

Velocity  component  along  the  x  axis. 
Characteristic  velocity,  eqn  3-35. 
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u  Nondimensional  velocity  component,  u/ (i  Ip)2. 

w 

V  Volume. 

v  Velocity  component  along  the  r  axis. 

x  Spatial  coordinate  parallel  to  the  nozzle  centerline. 

y  Spatial  coordinate  normal  to  the  x  axis  in  a  two-dimensional 

flow . 

y  Nondimensional  height,  y(r  /p)'2/v. 

w 

GREEK  SYMBOLS: 

Damping  coefficients  in  the  r)  and  £  directions. 

Y  Ratio  of  specific  heats,  C  / C 

P  v 

6  Momentum  boundary  layer  thickness. 

6*  Momentum  boundary  layer  displacement  thickness. 

6.^  Kronecker  delta,  equal  to  0  if  i^j  or  equal  to  1  if  i= j . 

>)  Transformed  coordinate  norma]  to  source  nozzle  centerline 

(parallel  to  diffuser  wall). 

f  Transformed  coordinate  normal  to  diffuser  wall. 

A  Viscosity  diffusion  coefficient,  eqn  2-37. 

Aj  Left  running  character  >  ;;tic  line, 

p  Absolute  viscosity  coefficient, 

v  Kinematic  viscosity,  p/p. 

C  Transformed  coordinate  parallel  to  the  nozzle  centerline. 

P  Fluid  density. 

A.  Designates  a  finite  difference  when  used  as  a  prefix. 

o  Normal  stress  on  an  element  of  fluid,  eqn  2-29  -  2-31. 

t  Shear  stress,  eqn  2-32. 

ui  Vorticity. 
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SUBSCRIPTS: 


aw  Adiabatic  wall. 

e  Evaluated  at  the  edge  of  the  boundary  layer. 

i,j  Grid  point  indices. 

i,j  Indicial  notation,  chapter  2. 

n  Normal  to  the  diffuser  wall 

s  Tangential  to  the  diffuser  wall 

t  Turbulent  flow, 

o  Stagnation  value. 

«  Evaluated  in  the  external  freestream. 

SUPERSCRIPTS: 

n  Evaluated  at  known  time,  nAt . 

n+ .'5  Evaluated  at  intermediate  predictor  time  level,  (n+ ?)  At . 

n+1  Evaluated  at  new  corrector  time  level,  (n+l)At. 

o  Evaluated  at  time  level  t=0. 

OTHER  NOTATION: 

(~)  Denotes  a  two-dimensional  matrix. 

(  )  Denotes  time  averaged  values,  chapter  2. 

(  )'  Denotes  unsteady  values  due  to  turbulence,  chapter  2. 

Abbreviations 

D  Diffuser  (cross  -  sec t iona 1 )  diameter  (along  x-axis). 

Dstar  Momentum  boundary  layer  kinematic  displacement  thickness. 

EPB  Basic  eddy  viscosity;  refers  to  the  value  determined  by 

application  of  the  basic  Cebici-Smith  turbulence  model. 

EPM  Modified  eddy  viscosity;  refers  to  the  value  determined  by 

application  of  the  modified  Cebici-Smith  turbulence  model. 

EPR  Ratio  of  modified  to  basic  eddy  viscosity. 


xv  i 


NSR 


PPI 

PW 

PCL 

R 

RED 

R  , 
de 


R/R 


de 


RHOV 

RUINF 

SDL 

SPOS 


TCL 

U 

UINF 

wbb 

Xlt 

Ylt 


Normal  Shock  Recovery;  used  in  conjunction  with  a 
percentage,  such  as  60%  NSR;  refers  to  60  percent  normal 
shock  recovery  total  pressure  as  measured  by  a  pitot  probe 
(stagnation  pressure  behind  a  normal  shock  at  the  stated 
Mach  number) . 


Total  (stagnation)  pitot  pressure. 

Static  pressure  on  diffuser  wall. 

Static  pressure  along  diffuser  line  of  symmetry. 

Diffuser  length  (along  r,  or  y  axis). 

Total  length  of  baseline  diffuser. 

Location  of  diffuser  entrance  referenced  to  source  nozzle 
center! ine . 


Ratio  of  distance  through  diffuser  in  streamwise  direction; 
measured  from  source  nozzle  centerline. 

Streamwise  component  of  specific  momentum  (r,  or  y- 
direction)  as  in  Figure  63. 

Core  flow  average  streamwise  specific  momentum,  as  used  in 
Figure  63. 

Supersonic  Diffusion  Laser. 

Shock  Position;  location  of  core  flow  normal  shock  stated  a 
a  percentage  of  distance  from  the  diffuser  entrance  to  the 
diffuser  exit  (measured  along  the  r,  or  y,  axis). 

Static  absolute  temperature  along  diffuser  line  of  symmetry 

Value  of  streamwise  velocity,  as  used  in  the  ratio  U/UINF, 
Figure  30. 

Flowfield  average  streamwise  velocity,  defined  by  eqn  6-2. 
wall  bank  blower. 

Total  x-length  in  the  physical  domain  (half  of  the  diffuser 
diameter)  measured  along  the  x-axis. 

Total  y  (r)  length  of  the  diffuser,  measured  from  the  y  (r) 
location  of  the  diffuser  entrance  to  the  y  (r)  location  of 
the  diffuser  exit. 
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ABSTRACT 


Numerical  solution  to  the  diffusion  of  a  supersonic  flow  through  a 
cylindrical  laser  diffuser  is  approached  by  incorporating  a  modified  two- 
layer  Cebici-Smith  algebraic  eddy  viscosity  turbulence  model  into  the 
compressible  Navier-Stokes  equations.  The  standard  algebraic  constants  are 
made  functions  of  the  local  adverse  pressure  gradient  based  on  experimental 
values  obtained  in  the  research  of  Jobe,  Hankey ,  Laderman,  Sturek,  and 
Waltrup  and  Schetz.  This  modification  allows  solution  of  the  Navier-Stokes 
equations  by  MacCormack's  time  -  splitting  explicit  numerical  scheme  for 
selected  experimental  flow  conditions.  This  effort  represents  the  first 
full  Navier-Stokes  solution  that  has  accurately  simulated  the  viscous- 
inviscid  interactions  present  in  a  supersonic  axisymmetric  diffuser. 

Numerous  previous  attempts  required  artificial  and  arbitrary  numerical 

T  •'  '  / 

control  of  the  wall  boundary  layers  to  achieve  convergence. 

The  experimental  tests  used  as  a  basis  for  the  computational  solutions 
were  conducted  at  a  diffuser  entrance  unit  Reynolds  number  of  1.6  million 
per  foot.  Inflow  to  the  diffuser  was  provided  by  ten  Mach  2.5  primary 
nozzles  plus  two  Mach  4.0  bank  blowers  (wall  boundary  layer  flow 
energizers) .  Computations  were  performed  for  diffuser  exit  pressures 
representing  60  percent  and  47  percent  of  normal  shock  recovery  pressure. 
When  the  turbulence  model  was  properly  modified  to  accommodate  the  physics 
of  flows  with  strong  adverse  pressure  gradients,  the  numerical  solution 
successfully  reproduced  all  of  the  essential  flow  features  including 
boundary  layers,  location  and  size  of  wall  separation  regions,  location  of 
the  core  flow  normal  shock,  and  the  persistence  of  source  nozzle  flow 
interactions  through  several  streamwise  turnback  shocks.  Comparison  with 
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experimentally  obtained  wall  pressure  data  is  acceptable;  the  only  notable 
discrepancy  occurs  in  the  lambda  shock  impingement  region  where  the 
numerical  solution  fails  to  accurately  reproduce  the  intrinsic  physics  of 
the  flowfield.  Convergence  to  stable  numerical  solutions  was  not  achieved 
using  the  basic  Cebici-Smith  model;  eddy  viscosity  "stiffening"  was 
required  in  the  presence  of  adverse  pressure  gradients. 

The  required  modifications  to  the  basic  Cebici-Smith  two-layer 
algebraic  eddy  viscosity  turbulence  model  are  extremely  sensitive  to  the  von 
Karman  universal  mixing  length  constant,  the  sublayer  thickness  parameter, 
the  Clauser  outer  region  constant,  and  to  the  downstream  location  in  the 
diffuser  duct  at  which  these  modifications  are  implemented.  Length  scale 
determination  in  the  large  separation/recirculation  zones  present  downstream 
of  the  lambda  shock  impingement  also  has  a  significant  influence  on  the 
accuracy  of  the  numerical  solution. 

Diffuser  performance  is  shown  to  be  constrained  by  source  nozzle  mixing 
losses,  duct  length,  and  the  requirement  for  wall  boundary  layer 
energization  if  the  design  requires  a  relatively  short  duct.  The  numerical 
solutions  confirmed  Neumann  and  Lustwerk’s  experimental  conclusions 
regarding  minimum  diffuser  duct  length  if  no  wall  boundary  layer 
energization  is  employed. 
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CHAPTER  I 


INTRODUCTION 


1.1  BACKGROUND 

Within  the  past  fifteen  years,  considerable  attention  has  been  focused 
on  the  chemical  laser,  in  particular  the  supersonic  diffusion  laser  (SDL) 
(1,2, 3, 4).  In  a  typical  SDL,  a  plenum  gas  mixture  composed  of  hydrogen 
flouride  (HF) ,  flourine  (F) ,  and  helium  (He)  diluent  is  expanded  rapidly 
through  an  array  of  supersonic  nozzles.  At  the  exit  of  the  nozzles,  the 
following  exothermic  reaction  (among  others)  occurs: 

F  +  H2  -»  HF(v)  +  H  ,  AH=31.6  kcal/mole  (1-1) 

producing  a  vibrational  (v)  population  inversion  in  HF.  It  is  from  the 
subsequent  vibrational -energy  redistribution  of  HF(v)  that  laser  energy  can 
be  extracted. 

In  a  SDL,  the  fluid  dynamics  are  generally  complex  because  of 
significant  viscous  interactions  (2) .  Nozzle  geometries  introduce  important 
inviscid  considerations.  Major  inviscid/viscous  considerations  arise  from 
the  mixing  of  flow  from  numerous  source  nozzles,  diffuser  wall  boundary- 
layer  effects,  and  shock  interation  effects.  Linear  diffusers  designed  to 
overcome  these  complexities  have  been  extremely  long  and  heavy. 

The  design  emphasis  for  such  SDLs  has  focused  quite  naturally  on  the 
development  of  high  powered,  compact  systems.  Geometrically  cylindrical 
designs  evolved  as  one  method  of  achieving  compactness,  giving  them 
significant  size  and  weight  advantages  over  two-dimensional  geometries  when 
scaled  up  to  achieve  significant  laser  power  output  levels.  In  a  radial 
(cylindrical)  SDL,  the  fuel  mixture  is  expanded  radially  from  a  cylindrical 
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plenum  through  an  array  of  axisymmetric  nozzles  (Fig.  1).  In  the  HF  SDL 
mentioned  earlier,  the  rapid  expansion  serves  to  "freeze"  the  concentration 
of  monatomic  flourine,  F,  inhibiting  its  recombination  as  F2  while  providing 

a  low  pressure  and  density  conducive  to  effective  lasing  (1).  The  flow 
mixes  with  gas  injected  from  the  nozzle  trailing  edges,  creating  an  annular 
axisymmetric  lasing  zone  downstream  of  the  nozzle  exits.  The  laser  energy 
is  then  extracted  optically  along  the  direction  of  the  axis  of  the  mechanism 
(Fig.  2).  This  nature  of  chemical  laser  systems  requires  establishment  of  a 
stable  shock-free  supersonic  flow  field  in  the  optical  tunnel  (Figure  3)  for 
optimum  energy  extraction.  The  supersonic  flow  from  the  source  nozzles  must 
be  brought  to  ambient  (subsonic)  exhaust  conditions  with  minimum  losses  to 
optimize  performance  of  the  system.  Thus,  the  handling  of  the  system  of 
shock  waves  to  decelerate  the  flow  is  a  critical  design  issue.  The 
efficiency  of  this  process  is  usually  quoted  as  a  percentage  of  normal  shock 
recovery  (NSR)  pressure. 

The  cylindrical  laser  configuration  was  first  investigated  by  AVCO  (5) . 
This  investigation  included  an  analytical  and  a  cold-flow  subscale 
experimental  determination  of  the  stability  of  the  supersonic  radial  flow 
shock  system.  (Cold-flow  refers  to  a  nonreacting  flow  field;  i.e.,  the 
chemical  kinetics  of  the  species  reactions,  such  as  the  recombination  of 
monatomic  fluorine,  F,  into  Fj  are  "switched  off,"  resulting  in  no  heat 

release  (6).  A  hot-flow  refers  to  a  reacting  flow  field  with  fully  coupled 
chemical  kinetics  resulting  in  heat  release  from  the  recombination  of 
monatomic  fluorine,  F,  into  ) •  The  configuration  studied  had  no  diffuser; 

instead  an  attempt  was  made  to  establish  a  stable  cylindrical  normal  shock 
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RADIAL  OUTFLOW 

Fig.  1.  Radial  SDL  Schematic. 
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Fig.  2.  Radial  SDL  Cross-Section. 


CYLINDRICAL  NORMAL  SHOCK 
CONFIGURATION 


Figure  3*  Cylindrical  Normal  Shock  Configuration 
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system  (also  known  as  a  barrel  shock)  downstream  of  the  cavity  region  (Fig. 
3).  While  the  theoretical  analysis  (5)  predicted  that  such  a  shock  system 
could  be  established,  experimentally  it  was  found  that  the  boundary  layer 
separated  and  altered  the  cavity  region  flow  field  such  that  practical 
stable  operation  was  impossible. 

Ortwerth,  et  al .  (7),  recognized  the  need  of  a  diffuser  for  cylindrical 
source  flow  nozzles  to  control  the  boundary  layers  and  to  provide  gradual 
diffusion  of  the  wake  regions.  Their  experimental  results  indicated  that  a 
functional  (operatable)  shock-free  supersonic  optical  cavity  condition  was 
achieved  by  using  a  twenty-four  vaned  passage  diffuser.  This  work  utilized 
source  flow  hardware  which  had  a  relatively  low  length- to-diameter  ratio. 

The  resulting  diffuser  passages  were  of  low  aspect  ratio  (less  than  unity) 
and  consequently  end-wall  boundary  layer  control  was  not  needed  to  achieve 
the  reported  67  percent  of  normal  shock  pressure  recovery. 

Research  conducted  by  Howard  and  Hasinger  (8)  at  the  Air  Force  Flight 
Dynamics  Laboratory  confirmed  the  need  for  a  diffuser  in  experiments  with 
both  low  (0.69)  and  high  (2.85)  values  of  nozzle  length- to-diameter  ratio. 
Further  experimental  results  (9,10)  indicate  that  the  highest  level  of 
diffuser  performance  (80  percent  of  normal  shock  pressure  recovery)  was 
achieved  by  employing  a  contraction  section  at  the  diffuser  entrance  along 
with  end-wall  boundary  layer  energization.  This  is  consistent  with  well 
established  supersonic  wind  tunnel  diffuser  design  criteria  (11).  Although 
this  design  is  the  most  effective  method  to  eliminate  start/unstart 
hysteresis  and  achieve  high  diffuser  performance,  it  may  not  provide  optimum 
system  performance  due  to  adverse  characteristics  of  such  a  contraction  on 
the  low  Mach  and  Reynolds  number  supersonic  reacting  flow  field  present  in 
chemical  laser  systems  (12). 
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In  1982,  Zumpano  and  Guile  of  the  United  Technologies  Research 
Corporation  (UTRC)  began  an  experimental  program  to  evaluate  various 
diffuser  configurations.  Their  approach  (12)  recognized  that  the 
fundamental  problems  associated  with  flow  diffusion  processes  in  radial  flow 
diffusers  are  divided  into  two  categories;  those  associated  with  boundary 
layers  and  those  associated  with  core  flow  diffusion.  Their  experiment  (13) 
utilized  a  one-fifth  scale  radial  cold-flow  diffuser  (the  scale  is 
referenced  to  the  USAF  LS-14  chemical  laser  design).  A  baseline  vaned 
diffuser  configuration  was  used  to  conduct  parametric  evaluations  of  various 
diffuser  configurations  (including  a  vaneless  diffuser)  and  boundary  layer 
control  techniques.  Previous  UTRC  experimental  work  had  shown  good 
agreement  between  subscale  cold- flow  experiments  and  the  limited  amount  of 
hot-flow  diffuser  performance  data  available  (14);  reported  results  (15) 
have  shown  that  temperature  distributions  are  affected  the  most  and  velocity 
distributions  the  least  by  the  chemical  energy  heat  release  present  in  hot 
flows . 

The  cost  of  parametric  experimental  research  is  steadily  increasing. 
Any  technique  which  can  reduce  the  requirement  for  exhaustive  experimental 
work  will  result  in  significant  savings  of  both  time  and  resources.  As  more 
advanced  computers  are  developed,  the  cost  of  numerical  analyses  are 
decreasing  and  the  size  and  complexity  of  the  problems  tackled  continues  to 
expand.  Numerous  research  papers  have  reported  that  boundary  layer  and 
shear  layer  growth,  areas  of  separated  flow,  and  shock  wave  formation  and 
interactions  can  be  analyzed  using  computational  techniques  validated  by 
comparison  with  experimental  data.  Unlike  experimental  testing, 
computational  analysis  is  not  necessarily  restricted  by  experimental 
Reynolds  number  or  reacting  flow  temperature  or  chemical  safety 
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restrictions.  Computational  fluid  mechanics  shows  great  promise  as  a 
technique  that  can  have  significant  impact  on  the  design  of  internal  flow 
passages,  employing  advanced  digital  computers  to  simulate  the  diffuser 
flowfields  at  projected  operating  conditions,  but  have  not  yet  been 
validated . 

Due  to  the  extremely  specialized  nature  of  cylindrical  supersonic 
diffusion  lasers,  little  emphasis  has  been  focused  on  computational 
techniques  in  this  area.  However,  there  has  been  considerable  work 
accomplished  with  more  generic  internal  flow/nozzle/inlet/diffuser 
geometries.  In  1974,  Johnson  and  Wu  (15 :  i )  stated  that  "no  systematic  study 
of  wind  tunnel  diffusers  has  been  found."  A  search  of  the  relevant 
technical  literature  still  supports  that  comment.  The  bulk  of  design  and 
performance  knowledge  has  been  built  empirically  over  the  years  since 
Neumann  and  Lustwerk's  1947  paper  (11). 

From  a  computational  standpoint,  there  are  few  significant  differences 
between  a  supersonic  wind  tunnel  diffuser,  a  supersonic  engine  inlet/ 
diffuser,  and  a  cylindrical  laser  diffuser.  One  difference  is  that  the 
terminal  shock  in  the  cylindrical  laser  diffuser  occurs  at  considerably 
higher  Mach  numbers  than  in  inlets.  Another  is  that  wind  tunnel 
diffusers  and  engine  inlets/nozzles/diffusers  feature  relatively  uniform 
core  flow  regions,  while  the  nature  of  energy  generation  in  a  cylindrical 
laser  requires  the  mixing  of  supersonic  flows  from  numerous  nozzles  across 
the  inflow  region.  A  final,  notable  difference  stems  from  the  extremely  low 
pressures  (around  10  torr)  necessary  for  chemical  laser  energy  production 
resulting  in  relatively  low  diffuser  entrance  Reynolds  numbers,  whereas 
engine  inlet/diffuser  flows  characteristically  exhibit  high  Reynolds 
numbers.  Numerical  simulation  of  complex  supersonic  diffusion  laser 
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flowfields  must  therefore  encompass  core  flow  mixing,  inviscid/viscous 
shock-boundary  layer  interactions  and  the  resulting  large  regions  of 
separation  and  recirculation.  Most  of  all,  it  must  allow  for  d_ynamic  time- 
variant  analyses  of  rapid  shock  motion  in  the  diffuser  in  response  to 
changes  in  exit  plane  back-pressure  conditions. 

Steady  transonic  flow  in  nozzles  has  received  considerable  attention 
and  theoretical  treatment  (16;  17:180-214;  18:131-207;  19:79-85).  Messiter 
and  Adamson  (20:97-108)  presented  systematic  solutions  for  inviscid  flows 
with  a  shock  in  a  nozzle.,  employing  methods  of  matched  asymptotic 
expansions.  The  same  approach  was  used  to  study  unsteady  two-dimensional 
transonic  flows  in  which  large  amplitude  shock  motion  was  allowed  (21;  1240- 
1247)  and  the  boundary  layers  were  included  (22).  Lion  (23)  continued  this 
matched-asymptotic  expansion  approach  with  steady  transonic  flow  in  two- 
dimensional  and  annular  diffusers,  allowing  for  the  possibility  of  shock- 
induced  separation  in  the  case  of  sufficiently  strong  shocks  under  the 
assumption  that  the  separation  bubble  size  was  no  larger  than  the  boundarv 
layer  thickness. 

Buggeln,  et  al.  (24)  utilized  a  cons i s tent ly - sp 1 i t  linearized  block 
implicit  technique  to  solve  the  finite  difference  analogs  to  the  set  of 
governing  partial  differential  equations  for  a  three-dimensional  viscous 
supersonic  flow  through  an  inlet.  They  stated  that  "although  use  of  the 
full  three-dimensional  Navior - S tokes  equations  would  provide  the  nooessarv 
generality  to  predict  the  flow  field  in  an  inlet,  the  required  computer  run 
time  and  storage  indicate  that  such  a  procedure  should  be  used  only  if  no 
suitable  alternative  exists."  Their  procedure  solved  the  parabolized 
Navier-Stokes  equations  obtained  by  making  the  following  fundamental 
assumptions:  the  streainwise  or  primary  flow  direction  can  be  identified  and 


8 


in  that  direction  all  diffusion  terms  can  be  neglected.  The  accuracy  of 
these  approximations  depends  on  several  factors,  including  the  geometry,  the 
coordinate  system,  and  the  characteristic  Reynolds  number  of  the  flow. 
Neglecting  streamwise  diffusion  is  obviously  invalid  in  the  presence  of 
large  streamwise  recirculation  zones.  Results  of  their  computations  gave 
good  agreement  with  experimentally  measured  pressure  values  along  the 
surfaces  of  the  Mach  number  3.0  inlet  for  the  cases  where  the  reduced  form 
of  the  Navier- Stokes  equations  applied. 

Liu,  et  al .  (25)  continued  the  effort  to  study  terminal  shock  type 
flows  in  various  flight  regimes  occurring  in  a  diffuser/inlet  model. 
Employing  a  mixing- length  turbulence  closure  model,  their  numerical  scheme 
was  also  based  on  a  linearized  block  implicit  approach  and  carried  out 
numerous  high  Reynolds  number  calculations ,  including  supersonic  flow  with  a 
terminal  shock.  Their  numerical  results  compared  well  with  corresponding 
experimental  wall  static  pressure  data.  These  authors  also  extended  their 
effort  (26)  to  includi  shock  tracking  adaptive  grid  schemes.  Additionally, 
calculations  were  carried  out  to  study  the  dynamic  response  of  shock  waves 
occurring  in  a  transonic  inlet  to  externally  imposed  back  pressure 
oscillations . 

Concurrently,  Talcott  and  Kumar  (27)  employed  both  MacCormack's 
explicit  and  implicit-explicit  (28,29)  methods  with  an  algebraic,  two-layer 
eddy  viscosity  turbulence  model,  to  study  the  flow  through  three  inlet/ 
diffuser  configurations  with  terminal  shock  systems.  In  their  numerical 
result,  the  use  of  bleed  was  required  to  stabilize  the  shock  location.  They 
also  commented  that  the  fully  explicit  method  required  too  many  time  steps 
to  converge  due  to  the  large  regions  of  subsonic  flow  and  the  highly  refined 
grid  used  near  the  solid  boundaries  to  resolve  the  viscous  effects. 
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Knight  (30)  had  also  employed  MacCormack's  explicit  algorithm  with  the 
two- layer  equilibrium  turbulent  eddy  viscosity  model  of  Cebici-Smith  (31,32) 
to  model  the  flowfields  of  two-dimensional  high  speed  inlets.  His  work 
verified  the  ability  of  a  compressible  Navier-Stokes  code  with  a  coordinate 
transformation  package  to  qualitatively  predict  the  complex  phenomenon  of 
realistic  high  speed  inlets.  This  research  was  consistent  with  the 
aforementioned  efforts  in  studying  relatively  high  Reynolds  number  flows 
with  relatively  low  terminal  shock  Mach  numbers  (<2.5). 

Hsieh,  et  al.  (33)  solved  the  Navier-Stokes  equations  implicitly, 
employing  a  more  complex  k-w  equation  eddy  viscosity  model  for  turbulence 
closure,  to  study  the  response  of  a  two-dimensional  ramjet  inlet  to  high- 
amplitude  pressure  fluctuations  and  the  attendant  large  flow  separation 
regions.  Maximum  terminal  shock  Mach  number  was  approximately  1.6. 

All  of  these  previous  efforts  demonstrated  that  reasonable  solutions  to 
the  governing  Navier-Stokes  equations  could  be  obtained  for  high  Reynolds 
number,  relatively  low  terminal  shock  Mach  number  (<2.5)  flows.  Recent 
interest  in  hypersonic  engine  inlet  performance  has  resulted  in  an  extension 
of  the  methodology  to  high  Mach  number  flow  domains.  Rose  (34)  used 
MacCormack's  algorithm  in  computational  simulations  of  a  Mach  5  inlet 
configuration.  Reddy,  Benson,  and  Weir  (35)  validated  a  time -marching  full 
Navier-Stokes  code  employing  a  Baldwin- Lomax  (36)  algebraic  turbulence  model 
for  a  Mach  5  inlet.  Solutions  have  not  been  achieved  for  the  low  Reynolds 
number,  high  terminal  shock  Mach  number  (>2.5)  cases  involving  cross-flow 
mixing  characteristic  of  radial  supersonic  diffusion  lasers  (12).  Some 
numerical  research  (3,4,6,37,38)  has  been  done  to  study  flow  behavior  from 
the  source  nozzles  through  the  optical  cavity,  but  these  efforts  have  not 
been  successfully  extended  through  the  length  of  the  diffuser. 
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Additionally,  the  majority  of  this  work  has  dealt  with  the  laminar  flow  from 
a  single  nozzle  or  laminar  mixing  from  two  nozzles  (6).  Hasen  (39) 
attempted  numerical  solutions  to  the  unsteady  Navier-Stokes  equations  for 
flow  through  a  two-dimensional,  supersonic  laser  diffuser  channel  in  1982 
and  1983,  concurrent  with  the  beginning  of  this  research.  His  simulation 
assumed  uniform  diffuser  inflow  conditions  and  achieved  stable  solutions 
only  by  artificially  "freezing"  the  eddy  viscosity  turbulence  models.  He 
concluded  that  the  Baldwin-Lomax  turbulence  model  (36)  caused  dynamic  flow 
effects  in  the  boundary  layer  -  shock  interaction  zone  which  prevented  a 
steady,  stable  two-dimensional  solution.  A  full  Navier-Stokes  solution  for 
interactions  of  multiple  source  flow  nozzles,  inviscid/viscous  shock¬ 
boundary  layer  interactions  at  high  terminal  shock  Mach  numbers,  and  the 
resulting  large  separation  and  recirculation  regions  is  necessary  to 
simulate  SDL  diffuser  performance. 

1.2  RESEARCH  OBJECTIVES 

The  primary  objective  of  this  research  is  the  development  of  a 
numerical  method  capable  of  accurately  predicting  cold  flow  radial  SDL 
flowfields  that  contain  highly  viscous  regions,  core  flow  mixing,  and 
complex  shock  structures.  Vaneless  axisymmetric  diffusers  will  be  studied 
as  they  are  also  the  focus  of  current  experimental  research  efforts.  The 
experimental  data  of  Zumpano ,  Guile,  Haas,  and  Sobel  (13),  is  the  validating 
basis  for  this  research  effort.  Data  in  this  reference  is  for  diffuser 
entrance  flow  at  a  mean  Mach  number  of  2.35  at  a  unit  Reynolds  number  of 
1.63  million  per  foot  with  terminal  shock  Mach  numbers  in  the  range  above 
3.5.  The  vaneless  diffuser  geometric  configuration  is  shown  schematically 
in  Figures  4  and  5.  Figure  6  provides  a  photograph  of  the  experimental 
source  nozzle  array.  Figure  7  provides  a  schematic  of  the  source  nozzle 


assemble  and  diffuser  entrance.  Turbulence  modeling  and  outflow  boundary 
conditions  (the  flow  downstream  of  the  terminal  shock  is  subsonic  and 
therefore  the  outflow  boundary  affects  the  flow  throughout  the  diffuser) 
will  be  concentrated  on  in  the  present  investigation  in  order  to  achieve  the 
desired  goal  of  validating  an  accurate  predictive  technique  for  radial  SDL 
diffuser  performance. 
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Figure  7  Cross-Sectional  Schematic  Drawing  of 

Diffuser/Nozzle  Configuration. 
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CHAPTER  II 


MATHEMATICAL  DESCRIPTION  OF  THE  FLOW  STRUCTURE 

2.1  GOVERNING  EQUATIONS 

The  Navier-Stokes  equations  are  the  governing  equations  for  flows 
containing  the  shock  and  viscous  phenomena  of  interest.  These  equations  are 
the  conservation  equations  for  mass,  momentum,  and  energy.  The  gasses 
involved  are  assumed  to  be  single  component,  have  constant  specific  heats, 
and  obey  the  calorically  perfect  gas  equation  of  state  : 

P  =  pRT  (2-1) 

The  Eulerian  formulation  is  usually  applied  to  the  problem  of  interest 
in  computational  fluid  mechanics.  This  method  involves  a  fixed  control 
volume  that  is  specified  relative  to  a  given  coordinate  system.  Properties 
of  the  fluid  are  then  specified  as  functions  of  both  time  and  space.  The 
conservation  equations  are  derived  by  using  this  frame  of  reference. 

CONSERVATION  OF  MASS 

For  a  given  system  in  which  matter  is  neither  created  or  destroyed,  the 
law  of  mass  conservation  can  be  written  as 

JIf  (ft  +  V  ’  p'*)  dV  “  °  (2'2) 

V 

where  V  is  an  arbitrary  volume  fixed  in  space. 

CONSERVATION  OF  MOMENTUM 

For  a  given  system,  the  law  of  momentum  conservation  states  that  the 
rate  of  change  of  momentum  is  equal  to  the  sum  of  the  external  forces  acting 
on  the  control  volume.  If  body  forces  are  neglected,  this  law  can  be 
written  as: 
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(2-3) 


JJJ  +  V  •  (pu)  u]  dV  -  HI  (V  •  S)  dV 

V  V 

The  variable  S  denotes  a  stress  tensor  involving  pressure  and  viscous  forces 
which  act  on  the  fluid. 

CONSERVATION  OF  ENERGY 

The  law  of  conservation  of  energy  states  that  for  a  given  system  which 
does  not  contain  any  internal  heat  sources,  the  rate  of  change  of  the  total 
energy  of  the  system  is  equal  to  the  rate  at  which  heat  is  added  into  the 
system  plus  the  rate  at  which  work  is  done  on  the  system  by  viscous  and 
pressure  forces.  This  can  be  stated  as 

+  V  •  (pe)  u]  dV  =  HI  (V*u-S  -  V-q)  dV  (2-4) 

V  V 

Since  these  conservation  equations  are  valid  for  any  arbitrary  volume 
V;  by  the  limiting  process  of  inf initessimal  control  volumes: 


&  4 

at 

V  •  pu  “=  0 

(2-5) 

<3(pu,; 

at 

“  +  V  •  (pu) 

u  -  V  •  S  =  0 

(2-6) 

d(pe) 

at 

L  +  V  •  (pe) 

u  +  V«q  -  V*  (u*S)  =  0 

(2-7; 

It  should  be  noted  that  these  equations  are  written  in  conservative 
form  where,  for  the  two-dimensional  and  axisymmetric  flows  of  interest,  the 
applicable  dependent  variables  are  p,  pu,  pv ,  and  pe .  As  shown  by  Roache 
(40),  finite  differencing  approximations  derived  from  this  conservative  form 
allows  the  finite  difference  equations  to  preserve  the  Gauss  divergence 
property  of  the  continuum  equations.  This  form  allows  a  balance  between  the 
flux  quantities  and  accumulation  rates  for  a  small  control  volume.  Roache 
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also  states  that  the  Rankine -Hugoniot  shock  relations  were  derived  using  the 
conservative  form.  Thus,  shock  jump  conditions  are  automatically  satisfied, 
since  some  conservative  variables  are  continuous  across  the  shock  and  need 
no  special  treatment  because  of  discontinuities.  This  approach  is  known  as 
shock  capturing  or  shock  smearing.  The  conservation  form  of  the  equations 
then  allows  the  finite  difference  formulation  to  satisfy  the  physical  laws 
across  a  control  surface,  not  merely  in  some  discrete  limit  as  Ax,  Ay,  and 
At  approach  zero.  Since  the  flowfields  of  interest  are  turbulent,  the 
solution  of  the  conservation  equations  must  take  into  account  the  effects  of 
the  random  fluctuations  of  the  dependent  variables  inherent  to  turbulent 
flows.  In  accounting  for  these  effects,  a  temporal  averaging  process  will 
decompose  the  dependent  variables  into  mass  averaged  variables  (41,42).  The 
usual  conventions  of  a  repeated  subscript  indicating  summation  over  the 
entire  range  of  indices  and  a  comma  representing  partial  differentiation 
will  be  used  to  make  the  equations  compact.  Cartesian  tensors  are  used  to 
allow  working  directly  with  the  physical  components,  while  still  being 
applicable  to  the  2-D  and  axisymmetric  cases  of  interest.  The  conservation 
equations  (2-5)  through  (2-7)  can  then  be  written  as: 

P,t  +  (^uj)  .j  *  0  (2-8) 

(pu.)  +  (pu.u.  +  8..  P  -  t . .  =  0  (2-9) 

i'  t  l  j  ij  ij  ’J 


(Pe)’t  +  (^euj  +  '  ui  Tij>-j 


where  the  stress  tensor  S.^  has  been  expanded  in  the  form: 


S  .  . 
IJ 


P  6  .  .  +  t  .  . 

IJ 


(2-10) 


(2-11) 
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The  dependent  variables  in  the  conservation  equations  can  be  expanded 


into  the  following  form: 


u  —  u  +  u' 


V  =  V  +  v' 


P  =  P  +  F' 


P  +  P' 


( 2  -  12a) 
(2  -  12b) 
(2  -  12c ) 
(2  - 12d) 


e  =  e  +  e '  ( 2  - 12e) 

In  these  expansions  the  barred  variables  represent  time  averaging  over  a 
time  interval  that  is  long  compared  to  turbulent  eddy  fluctuations,  yet 
small  compared  to  macroscopic  flow  changes.  The  primed  variables  represent 
fluctuations  due  to  the  turbulent  nature  of  ‘he  flow.  As  discussed  by 
Chapman  (43),  this  time  averaging  approach  is  valid  since  the  frequencies  of 
most  unsteady  flows  of  interest  are  a  factor  of  10  to  100  below  the  mean 
frequency  of  turbulent  eddies. 

If  the  dependent  variables  u,  v,  and  e  are  mass  averaged,  and  p  and  P 
are  mean  (time  averaged)  state  variables,  then  the  conservation  equations 
can  be  written  in  the  form  of  mean  flow  equations  as: 


P  .  t  +  (plu  )  , j  =  0 


(2-13) 


(pu.)  +  [(pu.u.)  +  P6 . .  -  (r..  -  pu!u!)],.  =  0  (2-14) 

i  t  i  J  ij  lj  i  J  J 

(pe)  +  [peu.  +  q.  +  pu!e'  -  u.  (r . .  -  pu!u!)],.  =  0  (2-15) 

t  J  J  i  ij  i  J  J 

where  a  higher  order  mean  energy  dissipation  term  in  u^  has  been  neglected 
in  the  energy  equation  (2-15). 
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The  term  [-pu^uj]  is  known  as  the  Reynolds  stress.  It  represents  a 

momentum  transfer  caused  by  turbulent  fluctuations  present  in  the  flowfield. 
This  stress  term  can  be  written  as  an  apparent  stress  caused  by  the 
turbulent  nature  of  the  flow: 


r .  . 
ij 


-pulu' 


turb  '  i  j 

The  mean  stress  term  can  be  expanded  into  its  dilutational  and 
roational  components  as: 


r  .  .  =  A  u,  .  S .  .  +  u  ( u .  .  +  u .  .) 

ij  k,k  ij  i,J  J .1 


(2-16) 


(2-17) 


Assuming  isotropy,  the  turbulent  stress  term  can  then  be  approximated  in 
analogous  form  as: 


r  .  . 

1 J 


,  =  A  u.  .  6..  +  £  (u.  ,+u.  .) 

turb  t  k,k  ij  i,j  j  ,  l 


(2-18) 

where  and  c  are  the  turbulent  viscosity  coefficients  of  the  flow.  The 

coefficient  e  is  known  as  the  eddy  viscosity,  and  is  analagous  to  the 
molecular  viscosity  coefficient  p.  However,  A^and  e  are  more  a  property  of 

the  flow  dynamics,  whereas  p  is  only  a  property  of  the  fluid.  Combining  the 
mean  and  turbulent  stress  terms,  an  overall  stress  term  can  be  written  as: 


T  .  . 

IJ 


(A  +  V  Vk  6ij  +  ^  +  °  (ui,j  +  uj,i} 


(2-19) 


total 

In  the  energy  equation  an  additional  unsteady  term  appears.  This  term 
is  by  nature  an  apparent  heat  flux  caused  by  the  fluctuations  inherent  to 
turbulent  flow  and  can  be  written  as: 


turb 


-  pu '.  e  ' 
J 


(2-20) 
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If  the  heat  flux  term  is  defined  by  the  Fourier's  law  of  heat 


transfer : 


q.  -  -kf  -  -  (CpM/Pr)  T , j 


(2-21) 


then  by  the  former  analogy 


turb 


can  be  written  as: 


qj 


turb 


(Cp£/Prt)  T , j 


(2-22) 

where  again  e  is  the  eddy  viscosity  coefficient,  and  Pr  is  the  turbulent 

Prandtl  number  of  the  flow.  Combining  these  two  heat  fluxes,  a  total  heat 
flux  can  be  written  as: 


?j  total  -  '  CP  «‘/Pr  *  </Prt>  (2'23> 

The  mean  conservation  equation  equations  can  then  be  written  in  the 
following  form,  where  the  overbars  on  th»~  terms  are  dropped  for  convenience, 
and  where  the  values  of  the  shear  stresses  and  heat  fluxes  are  the  total 
values  (42)  : 

P . t  +  (puj ) , j  -  0  (2-24) 

(pu^.j.  +  [(pu.)u  +  P5ij  -  “  0  (2-25) 

(pe),  +  [ (pe )u  +  q  -  u  r  .],.  =  0  (2-26) 

L  J  J  L  J 

Since  the  flowfields  of  interest  are  either  two-dimensional  or 
axisymmetric  in  nature,  the  mean  conservation  equations  can  be  written  in 
the  following  compact  vector  form: 


au  3F  _l_  d  ( r-j  °G)  .  _H_ 

at  +  ax  +  rj0  dr  =  Jo  *  rjo 


(2-27) 
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where  j.  -  0  or  1  for  either  the  two-dimensional  or  axisymmetric  case, 


respectively,  and 


pu2  -  a 

xx 

pUV  -  T 

xr 

pue  -  q  -  uo  -  vr 
v  x  xx  xr 


puv  -  r 
,  xr 
pv^  -  a 

rr 

pve  -  q  -  ur  -  va 

r  xr  rrJ 


(2-28) 


where 


■P  +  (A+At)  div  V  +  2  (ji  +  £>  ~ 


(2-29) 


a  =  -P  +  (A  +  A  )  div  V  +  2(/i  +  f) 


(2-30) 


?H  -  -P  +  (A+At)  div  V  +  2(/j  +  c)  ~ 


(2-31) 


'xr  "  +  £)  (f¥  + 


(2-32) 


_  r  ,*L_  ,  e  ,  3T 

qx  ~  ‘CP  Pr  Pr;_)  3x 


(2-33) 


-C  +  — - — )  — 

P  vPr  Pr  '  3r 


(2-34) 


^  du  ,  dv  v 

drv  V  -  —  +  —  +  i  „  - 
dx  3r  Jo  r 


(2-35) 


The  coefficient  of  viscosity  ^  for  air  can  be  assumed  to  vary  according  to 
Sutherland's  law  (41): 


M  -  (2.27  •  10*8)T1-5/(T  +  198.6)  (lbf  -  sec/ft4) 


(2-36) 
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The  second  coefficient  of  viscosity  is  assumed  to  be  given  by  the 


Stokes  Hypothesis  (44) : 

(A  +  At)  =  -2/3  +  O 


(2-37) 


The  governing  equations  for  the  problem  of  interest  now  consist  of  the 
four  conservation  equations  in  flux  vector  form  (eq.  2-27)  with  four  unknown 
dependent  variables  p,  pu,  pv ,  and  pe .  The  perfect  gas  law  is  used  to 
define  the  pressure  in  terms  of  these  conservative  variables,  and  a  model  of 
eddy  viscosity  must  be  introduced  to  accomplish  the  "turbulent  closure." 

For  numerical  computation  in  a  transformed  (£,r))  Cartesian  plane,  the 
matrix  form  of  the  conservation  equations  (2-27)  can  be  written  as: 


au 

at 


+ 


:  SZ 

*x  ae 


i  a ( r^ °G) 

rjo  ae 


,  r  £F  _!_  a  (r~^  °G) .  .  _H_ 

dt)  rj„  dn  Jo  rjo 


(2-38) 


where  £  and  rj  are  now  the  independent  variables,  and  the  transformation 
metrics  rj^,  and  are  obtained  numerically  from  a  mapping 

procedure.  Equation  (2-38)  is  actually  in  chain-rule  conservation  form  due 
to  the  varying  coefficients  in  front  of  the  derivatives,  and  also  due  to  the 
source  term  in  the  axisymmetr ic  case. 

2 . 2  BOUNDARY  AND  INITIAL  CONDITIONS 


Boundary  and  initial  conditions  must  be  specified  to  determine  a  unique 
solution  of  the  conservation  equations  that  govern  the  flowfields  of 
interest.  These  conditions  must  be  carefully  specified,  since  many  flow 
features  such  as  shock  waves,  boundary  layers,  and  recirculation  are 
uniquely  determined  by  the  boundary  conditions.  For  the  solution  of  an 
axisymmetric  supersonic  flowfield  through  a  diffuser,  the  domain  of  interest 
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DIFFUSER  LINE  OF  SYMMETRY 


DIFFUSER  WALL 


Figure  8.  Computational  Domain 

can  be  defined  as  shown  in  Figure  8.  Only  one-half  of  the  total  diffuser 
flowfield  needs  to  be  considered  due  to  the  axis  of  symmetry  on  the  diffuser 
centerline.  The  specific  boundary  conditions  pertinent  to  this  problem  will 
be  described  in  the  remainder  of  this  chapter. 

THE  UPSTREAM  BOUNDARY 

Inflow  conditions  on  the  upstream  diffuser  boundary  (AB)  are  completely 
specified  by  interpolation  of  experimental  data.  Velocity,  pressure,  and 
temperature  profiles  known  experimentally  from  the  data  of  Zumpano  (12)  on 
this  boundary  fix  p,  pu,  pv,  and  pe  for  the  problem  solution. 

THE  DOWNSTREAM  BOUNDARY 

The  downstream  boundary  (CD)  is  unique  in  that  although  the  exit  plane 
back-pressure  is  known,  no  rigorous  assumptions  can  be  made  about  either  the 
variables  or  their  gradients  across  the  entire  span  of  the  boundary  unless 
the  boundary  is  placed  a  great  distance  downstream.  However,  this  would 
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dramatically  increase  the  size  of  the  domain  and  the  required  computational 
time.  In  this  case  a  no  change  condition 


if 

dy 


CD 


0 


(2-40) 


can  be  assumed,  where  f  denotes  the  primitive  variables  p,  u,  v,  and  T. 
However,  for  the  case  under  study  the  downstream  boundary  is  fairly  close  to 
the  inflow  boundary,  at  the  very  least  a  gradient  in  velocity  in  the  radial 
direction  must  exist.  In  this  case,  an  extrapolation  method  can  be 
reasonably  applied.  One  such  method  is  to  assume  that  outside  of  the 
boundary- layer  region  along  the  diffuser  wall,  pressure  can  be  specified 
along  the  outflow  boundary  and  gradients  in  the  remaining  variables  based  on 
the  conservation  laws  and  geometry  are  appropriate.  This  condition  is 
reasonable  if  the  gradients  at  this  boundary  are  not  severe,  as  would  be 
true  if  a  strong  shock  wave  exits  the  boundary.  Inside  the  boundary- layer 
region  no  conditions  may  be  specified  or  the  problem  will  be  over  specified. 


THE  LINE  OF  SYMMETRY 


The  boundary  (AD)  is  a  line  of  symmetry  with  no  mass  or  energy  flux 
across  it.  Therefore  physics  dictates  the  following  boundary  conditions: 


u 


AD 


0 


3x 


AD 


0 


3v 

3x 


AD 


0 


3T 

3x 


-  0 


AD 


(2-41) 

(2-42) 

(2-43) 

(2-44) 
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DIFFUSER  WALLS 


The  diffuser  walls  (BC)  are  considered  to  be  no-slip,  impermeable 
boundaries.  This  assumption  gives  the  conditions  that: 


wall  “  0 

(2-45a) 

wall  "  0 

( 2 -45b) 

Since  the  stainless  steel  diffuser  walls  consist  of  material  with  a 
thermal  conductivity  much  greater  than  that  of  the  contained  fluid,  the 
diffuser  walls  are  assumed  to  be  at  a  constant  temperature: 


T|  -  constant  (2-46) 

|wall 

This  wall  temperature  can  be  easily  determined  as  the  adiabatic  wall 
temperature  achieved  across  the  turbulent  boundary  layer.  It  is  defined  by 
the  expression: 

T  -  T  (1  +  Pr1/3  (^r^)  M2)  (2-47) 

aw  ®  2  ®  v  ' 

The  pressure  on  the  diffuser  wall  is  unknown,  but  it  can  be 
approximated  by  applying  the  degenerate  form  of  the  appropriate  normal 
momentum  equation  along  the  surface  to  obtain  the  following: 


In 

the 


5n 


wall 


this  expression  n  is 
direction  parallel 


dr 

< 

5s 


sn 


1  wall 

the  direction  normal 
to  the  surface. 


to  the  wall  surface 


(2-48) 

and  s  is 
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INITIAL  CONDITIONS 


Since  the  governing  equations  contain  time  dependent  terms,  initial 
conditions  must  be  specified  before  the  solution  process  can  begin.  The 
specification  of  these  initial  conditions  is  somewhat  arbitrary  in  nature, 
although  steep  gradients  must  be  avoided  to  prevent  numerical  divergence 
during  the  solution  process.  Since  there  is  a  significant  portion  of 
supersonic  flow,  the  incoming  flow  profiles  will  have  a  significant  effect 
on  the  solution  in  the  whole  computational  domain.  Given  the  extreme 
complexity  of  the  inflow  profile,  an  initial  guess  as  to  the  solution  based 
on  a  one -dimensional  inviscid  normal  shock  analysis  for  a  uniform  flow  at  an 
average  of  the  inflow  Mach  number  profile  was  imposed  on  the  core  flow. 

This  was  patched  to  an  asymptotic  initial  guess  for  the  nature  of  the 
boundary  layer  with  the  constraint  that  no  pressure  gradient  exist  across 
the  interface  between  the  boundary- layer  and  the  wall  energizer  flow,  and 
likewide  between  the  wall  energizer  flow  and  the  core  flow.  Details  are 
discussed  in  the  section  on  initial  condition  implementation  of  Chapter  IV. 
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CHAPTER  III 


NUMERICAL  PROCEDURE 

The  numerical  procedure  consists  of  solving  the  governing  equations 
with  applicable  boundary  and  initial  conditions  through  the  use  of 
appropriate  finite  difference  techniques  on  a  high-speed  computer.  This 
procedure  can  be  broken  down  into  several  elements  which  include  the 
computational  domain,  the  finite  difference  algorithm,  and  the  respective 
convergence  criteria.  Each  of  these  areas  will  be  discussed  in  this 
chapter . 

3.1  COORDINATE  SYSTEM 

DOMAIN  OF  COMPUTATION 

The  physical  domain  of  computation  consists  of  a  rectangular  area 
defined  by  orthogonal  coordinates  (x,r)  as  shown  in  Figure  9.  The  mesh 
consists  of  IL  points  on  the  x  axis  and  JL  points  on  the  r  axis,  where  IL 
and  JL  are  dependent  on  the  extent  of  the  physical  domain. 

MESH  STRETCHING 

In  order  to  obtain  an  accurate  numerical  solution  of  a  viscous 
flowfield,  the  mesh  spacing  must  be  much  finer  in  areas  containing 
relatively  high  gradients  of  the  flow  properties  such  as  velocity,  density, 
and  temperature.  In  the  diffuser,  these  high  gradient  areas  include  the 
boundary  layers  on  the  diffuser  walls  and  the  shear  layer  present  due  to  the 
application  of  a  bank  blower  to  energize  the  boundary  layer,  as  well  as  at 
the  location  of  the  normal  shock/viscous  interactions.  This  stretching  is 
accomplished  through  the  use  of  a  patched  exponential  stretching  scheme  of 
the  following  form: 
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70X103  GRID 


x(i) 


-  1) 


m 


for  i  -  1,N 


(3-1) 


(e  -  1) 

where  L  and  6  are  defined  as  shown  in  Figure  10.  The  constant  C  is 
m 


determined  by  the  minimum  spacing  Ax  ^  desired  for  the  mesh  next  to  the 


wall  boundary.  The  selection  of  Ax  .  was  based  on  analysis  of  the 

boundary- layer  thickness  along  the  diffuser  wall  to  ensure  that  at  least  one 
grid  point  was  located  within  the  viscous  (or  laminar)  sublayer  (45) . 
Applying  the  desired  Ax  ^  t0  equation  (3-1)  gives 

i  Ax  .  „ 

C  -  ~  Loge  (1  +  ~ ^  (eC  -  1)  (3-2) 

^  m 

The  value  of  C  is  then  obtained  throught  the  use  of  an  iterative  Aitken 
extrapolation  technique  (46) . 

This  mesh  stretching  procedure  is  applied  in  the  x-direction  away  from 
the  diffuser  wall  where  the  major  boundary  layer/bank  blower  effects  are 
present.  Twenty  points  are  applied  in  this  region.  From  that  point  a 
uniform  grid  is  employed  in  the  x-direction  to  resolve  the  approximate  sine 

wave  profile  of  the  incoming  flow  generated  by  the  supersonic  source 

nozzles.  A  total  of  fifty  grid  points  are  employed;  ten  for  each  of  the 
five  nozzles  in  the  half  plane  of  the  diffuser  flowfield  up  to  the  line  of 

symmetry.  This  relatively  coarse  grid  spacing  was  deemed  sufficiently 

accurate  to  resolve  critical  flow  behavior  (47,48)  while  maintaining 
computational  efficiency. 

The  exponential  mesh  stretching  procedure  is  also  employed  in  the 
radial  direction  to  provide  maximum  resolution  of  the  nozzle  mixing 
interactions  and  strong  shock/viscous  interactions  located  not  far 
downstream  of  the  entrance  to  the  diffuser. 
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COORDINATE  TRANSFORMATION 

The  physical  domain,  as  shown  in  Figure  9,  is  mapped  to  a  unit  square 
in  the  computational  plane  as  shown  in  Figure  11.  The  constant  (  lines  are 
aligned  parallel  to  the  line  of  symmetry  and  the  constant  r?  lines  are  in  the 
direction  normal  to  the  line  of  symmetry.  The  numerical  algorithm  operates 
on  this  coordinate  system  using  the  transformed  conservation  equations  (2- 
38) .  Care  must  be  taken  in  generating  the  physical  mesh  so  that  smoothness 
of  the  transformation  coefficients  (£x,  fr>  ,  and  r;  )  is  retained  in  order 

to  reduce  numerical  errors  caused  by  the  numerical  approximation  of  these 
coefficients  in  the  mesh  configuration.  In  this  application,  the  grids 
employed  were  purely  rectangular,  so  both  and  were  equal  to  zero. 


WALL  BOUNDARY 

Figure  10.  Exponentially  Stretched  Mesh  Schematic. 
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Figure  11.  Computational  Mesh  in  the  Transformed  Plane. 
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3.2  SOLUTION  ALGORITHM 


MACCORMACK'S  METHOD 


The  chain-rule  conservative  form  of  the  axisymmetric ,  time-dependent 
Navier-Stokes  equations  (eqn.  2-38)  is  solved  using  MacCormack's  explicit 
finite-difference  method  (49).  This  algorithm  is  a  Lax-Wendroff  type 
differencing  scheme  of  second  order  accuracy  which  utilizes  time-splitting 
and  two  step  predictor-corrector  techniques.  MacCormack's  algorithm  was 
chosen  for  application  to  the  diffuser  problem  because  of  its  previous 
success  in  computing  inviscid/viscous  interacting  flows  with  shock  waves, 
its  stability  in  supersonic  flow,  and  its  computational  efficiency  achieved 
by  time-splitting  the  finite  difference  operators  (50,  51,  and  52). 

The  computational  solution  is  advanced  in  time  by  applying  a  numerical 
operator  to  the  solution  of  the  flowfield  at  time  t.  This  can  be  written 


U(£,  r) ,  t  +  At)  =  L(At)  •  U(£,  r\ ,  t) 


(3-3) 


where  L(At)  is  the  two-dimensional  numerical  operator  representing 
MacCormack's  algorithm  acting  on  the  transformed  conservation  equations. 
Through  the  use  of  a  time  -  splitting  technique,  this  two-dimensional  operator 
L(At)  is  separated  into  two  one-dimensional  sweep  operators  in  the  £  and  r\ 
directions.  The  operator  L^(At)  denotes  the  solution  of  the  equation: 


3U  3F  1  8 (rJ  °G' 

at  ^x  3£  rj0  * r  3£ 


(3-4) 


in  the  £  direction  by  time  increment  At  seconds.  Similarly,  the  operator 
L^(At)  represents  the  solution  of 


m  .  „  si  _i_  9(rj: 

at  ^x  dr)  rj6  vr  dr) 


(3-5) 
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in  the  r)  direction  by  a  time  increment  of  At  seconds.  The  dependent 
variable  vector  U(f,  r) ,  t)  can  then  be  advanced  in  time  as 

U(£,  t),  t  +  At)  -  [L?M/2(At/M).Lf?(At).L?M/2(At/M)]*U(e,  r, ,  t)  (3-6) 

with  At  =  At.  if  At.  <  At 

i  in 


or  as 


U(«,  n,  t  +  At)  -  [Lf?N/2(At/N).L^(At).Lf?N/2(At/N)].U(C,  V,  t)  (3-7) 
with  At  =  At  if  At  <  At, 

1  n  i 

In  these  equations  M  and  N  are  the  smallest  integers  of  the  quotients 
(At  /At,)  and  (At, /At  ),  respectively,  and  At,  and  At  are  the  maximum 

n  i  i  n  i  n 

allowable  time  steps  in  the  £  and  r\  directions  as  determined  by  the  Courant- 
Friedrichs-Lewy  (CFL)  limit  discussed  in  the  next  section  on  stability.  The 
values  of  M  and  N  are  usually  equal  to  two  for  the  grid  distribution  used  in 
the  solution  of  the  diffuser  problem.  This  sets  up  a  truly  alternating 
direction  sweep  procedure  that  is  desirable  when  gradients  exist  in  more 
than  one  direction. 

The  finite -difference  forms  of  the  sweep  operators  consist  of  a 
predictor-corrector  procedure,  which  increases  the  accuracy  of  the  time- 
dependent  term  evaluations.  This  method  utilizes  one-sided  differencing  in 
the  direction  of  the  sweep,  but  central  differencing  in  the  direction 
perpendicular  to  the  sweeping  coordinate.  At  the  completion  of  the 
predictor-corrector  process,  this  method  is  equivalent  to  a  second-order 
central  differencing  scheme  in  two  dimensions. 

The  i  sweep  operator,  L^(At),  represents  the  following  numerical 


procedure.  A  predicted  intermediate  value  is  computed  by  the  expression: 


Un+l/2  -  un  -  )  (Fn  -  Fn  ) 

i.j  i,j  Afl(Vi,j  C  l.j  i-l, 


+  (£)-.,  (4°.  G?  .  -  4°,  .  Gn  .  .)] 

rjD  vsr'i,j  i.j  i,j  i-l, J  i-l, J  J 

i.j 


(3-8) 


where  U?  .  is  the  known  value  at  time  t,  and  U?+42  is  the  intermediate 

i.j  i.J 

predictor  value.  The  actual  computed  value  at  time  (t  +  At)  is  then 

calculated  by  applying  the  following  corrector  algorithm: 


U?4  -  1/2 

i.J 


U 


n  .  +  Un+1/2  -£[<*).  .  (Fn+J/2  -  Fn+1/2) 


i.J  i.J 


A£ 1  sx  i , j  '  i+l,j  i,j 


+  -4-  (i  ).  .  (4%  .  G^y2.  -  4°.  Gn+1/2)] 

rjc  i,j  i+1 , J  1+1, J  1,J  1,J 

i.j 


(3-9) 


In  this  £  sweep  predictor-corrector  algorithm,  the  matrices  F  and  G  are 
functions  of  the  following  difference  quotients: 


F?  .  ,  g"  . 
i.J  i.j 


u“  .  -  u?  .  u.  , -  u.  1 

f/„m  1+1.  J _ La  1.J+1 - i.Jrly 

UUi,j’  A£  ’  2A  r,  > 


(3-10) 


This  scheme  can  be  depicted  graphically  as  shown  in  Figure  12. 


The  L^(At)  numerical  sweep  operator  is  formulated  in  a  similar  manner. 
The  intermediate  predictor  value  is  given  by  the  expression: 

Un+l/2  _  u?  .  -  ^[(r?  ).  .  (F?  .  -  F?  ) 

i.J  i,J  At?  xi, j  i,j  i,J-l 


jo  At  H?  , 


+  4^  (»?)..  (4°.  G?  ,  -  4°.  ,  G?  .  ,)]  +  — - — iU  (3-11) 

rJ=  r  1,J  I.J  l.j  i.J-1  1.J-1  rJ 


I.J 
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Figure  12.  Graphical  Representation  of  the  Numerical 
Sweep  Operators. 
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The  corrector  value  at  time  (t+  At)  is  then  given  by: 


un+1 

i.J 


1/2 


Un  .  +  Un+1/2  -  ^[(O-  •  (Fn+1/?  -  Fn+1/2) 
1,J  1,J  if)'  x  i,]  i,j+l  1,J 


At  H?+1/2 


+  -4-  (tj  ).  .  (r?  ° .  .  G?+^?  -  rj°.  G?+1/2)]  +  — - : — 


rJ 


r  i » J 


i » j+1  i,j+l 


l.J  !.J 


l.J 


(3-12) 


The  matrices  F  and  G  are  now  functions  of  the  following  difference 
quotients : 


F?  .  ,  Gm  . 
l.J  l.J 


Um  -  um  um 

f/uH  lllU _  i-LJ  Uj  +  1  . 

^  i.j’  2AC  ’  A 17 


um 

-i  ■  J 


) 


(3-13) 


This  scheme  is  also  depicted  graphically  in  figure  9. 

The  MacCormack  algorithm  satisfies  the  requirements  of  stability, 
consistency,  and  accuracy  if  the  following  conditions  are  met:  It  is  stable 
if  the  time  step  limit  satisfies  the  CFL  stability  condition  given  in  the 
next  section.  It  is  consistent  if  the  sum  of  the  time  steps  for  each  of  the 
sweep  operators  is  equal,  and  the  algorithm  is  second-order  accurate  in 
space  and  Lime  if  the  sequence  of  sweep  operators  is  symmetric. 

STABILITY  CONDITION 


Although  the  stability  of  the  finite  difference  equations  cannot  be 
analyzed  when  applied  to  the  complete  set  of  Navier-Stokes  equations, 
MacCormack  and  Baldwin  (53)  have  shown  that  considerable  insight  can  be 
gained  by  separately  analyzing  the  inviscid,  diffusion,  and  mixed  derivative 
parts  of  these  equations.  Stability  criteria  are  determined  by  calculating 
the  eigenvalues  of  the  associated  amplification  matrix  for  each  part.  If 
this  eigenvalue  procedure  is  applied  to  the  inviscid  terms  of  the  Navier- 
Stokes  equations  for  flow  in  a  Cartesian  coordinate  system,  the  following 
stability  conditions  emerge: 
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«  s  i 

X  u  +  c 


(3-14) 


At  <  — p7 - 

r  v  +  c 


(3-15) 


where  c  is  the  local  speed  of  sound.  Consideration  of  only  the  diffusive 

d 2U  d 2U 

terms  which  contain  and  in  the  complete  Navier- Stokes  equations 

gives  the  following  conditions: 


Ax  ^ 

At  <  1/2  - - - 

x  '  at  +  -JU) 


(3-16) 


p  'Pr  Pr 


At  <  1/2  - — - 

r  at  (it_  +  -J-) 

p  'Pr  Pr  ' 

t 


(3-17) 


Finally,  analysis  of  the  mixed  derivative  terms  found  in  the  Navier-Stokes 
equations  gives  the  following  conditions: 


At  -  At  <  7 - - 7^ 

x  r  p  [*(A  +  V  (M  +  °]  2 


(3-18) 


For  the  finite  difference  equations  applied  to  the  complete  set  of  Navier- 
Stokes  equations,  the  stability  criteria  can  then  be  estimated  as  (53): 


At  <  minimum  (At  ,  At  ) 
i ,  j 


(3-19) 


where 


^  _ 

iui +  c  +  i 1  (fc +  +  h  t-(A+v(/j  +  °]1/2) 


(3-20) 


Atr  * 


- -  (■3-21') 

j v j  +  c  +  -  !  T2  (£-  +  r5-)  +  ~  [-(A+A  ){p  +  €)]1/2) 

11  p  Ar  'Pr  Pr  Ax  1  ty'M 
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For  the  present  non-Cartesian  diffuser  flow  cases  that  were  computed, 
the  maximum  time  step  was  calculated  as: 

(3-22) 


where 


At*  < 


At  -  minimum  (At*,  At  ) 
•  •  c  *7 


AS. 


?  K1  +  c  +  p{As:(fc  +  pr)+ir  [-(A+v(^ +  £>i1/2> 

£  t  n 


(3-23) 


and 


AS 


At  < 
V 


lu„l  +  c  +  p  {  it  (fc  +  ?T>  +  ZT  '-(A+V("  +  £)]1/2> 

T)  t  T) 


(3-24) 


where 


is« 

-  i(xi.j 

- 

+ 

(r.  .  - 
i.J 

r  ) 2 

i-i.r 

ii/2 

(3-25) 
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V 

■  [<*m 

+ 

(r.  .  - 
i.J 

rij-i)2 

i 1/2 

(3-26) 
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(3-27) 
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(u.  . ,  V. 

i,J  l, 

j’ 

l.J-1 

vi,j-i> 

(3-28) 

The  actual  time  step  used  in  the  numerical  procedure  was  less  than  this 
theoretically  estimated  maximum.  Factors  varying  between  0.30  and  0.90  were 
used  during  the  computations. 

NUMERICAL  DAMPING 


The  computation  of  strong  shocks  imbedded  in  a  flowfield  can  often 
cause  numerical  oscillations  (40)  which  may  lead  to  program  failure  due  to 
physically  unrealistic  values  of  computed  pressure,  density  or  temperature 
These  oscillations  are  caused  by  numerical  truncation  errors  and  can 
sometimes  be  reduced  by  refining  the  grid  in  the  areas  of  shock  locations. 
However,  this  can  be  impractical  when  the  oscillations  are  of  a  transient 
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nature  caused  by  computational  start-up  or  re-start  procedures,  or  where  the 
shock  location  varies  for  different  experimental  cases  and  mesh  refinement 
for  each  individual  case  is  undesirable.  Additionally,  accommodation  of 
these  effects  requires  extremely  small  time  steps.  In  this  situation,  a 
fourth  order  pressure  -  gradient  damping  procedure  as  introduced  by  MacCormack 
and  Baldwin  (53)  can  be  applied  to  damp  the  numerical  oscillations  and  avoid 
program  failure. 

This  numerical  damping  scheme  is  applied  in  both  the  £  and  r/ 

directional  sweeps.  In  the  £  numerical  sweep,  damping  is  implemented  by 

replacing  F. .  .by  (F. .  .  +  F_  )  and  G..  .by  (G . .  .  +  )  in 

J  J  n, j  J  J  li, j 

equation  (3-4).  The  predictor  and  corrector  sweeps  in  this  case  are 

represented  by  ii  -  i  and  ii  -  i+1 ,  respectively.  The  damping  terms  Fp  and 

Gp  are  in  the  following  form: 

P. 


Cii  .3^  (p1*1'1 


-LzJLi 


.  ,  .  +  2P.  .  +  P.  -  .) 

i+l ,J  i,j  i-l,J 


(U.  .  .  -  U.  .) 
i+l, j  i,j/ 


(3-29) 


and: 


Gn  -a  (  v. .  . I  +  c . .  .)  /n 
Dii,j  v  11,J  11,J  (P* 


P.  .  . ,,  -  2P. .  .  +  P. .  .  , 
n.3+1 _ ii  - 1 _ LLlJ-iU 


i i , j '  ~ii,i'  (P..  +  2P. .  .  +  P..  .  .) 

,J  n.J+1  ii, j  ii,J-l 


(U 


-  u..  .  ,)  •  H?  . 


ii , j+l  ii.j-1 


ii. J 


(3-30) 


In  the  rj  sweep,  a  similar  procedure  is  implemented  by  replacing  F.  ..by 

1  >  J  J 


(F 


.  . .  +  Fn  )  and  G.  . .  by  (G.  . .  +  Gn 
l.jj  Oi.jj  l.OJ  l.JJ  »lt 


lP< 


)  where 

jj 

-  2P.  . .  +  P, 


,  .  Q  du  i  +  c  )  r.xtx^w — r  i.U  ..X-l.W 

D.  ..  1  i .  j j  1  Ci ,j j  (P.^,  ..  +  2P.  ..  +  P.  .  ..) 

i.JJ  JJ  i+l. JJ  i.jj  i*l.  JJ 
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(3-31) 
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i+l.jj 
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3  -Q  (  V  l+c  )  -  +  l - 1 
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(U.  .  1  -  U.  ,)  •  r3.° .  . 
i . j+1  i.J  i.JJ 


(3-32) 

In  this  case  the  predictor  and  corrector  sweeps  are  represented  by  jj  -  j 
and  jj  -  j+1,  respectively.  For  both  sweeps  and  a ^  are  damping  constants 

where  normally 

a.  -  a  (3-33) 

£  *? 

and  the  values  typically  range  from  0.5  to  3.0  (54). 

This  damping  procedure  produces  fourth  order  viscosity  like  terms  of 
the  form 


a  At  AF3  2-  r-UU+S 
£  ^  1  4P 


32P 


aV 


+  a  At  An3 

3£J  ij  v  dr,  1  4P 


d2P 

dr,7 


3U 

3*? 


]  (3-34) 


which  are  added  to  the  difference  equations.  The  magnitude  of  these  damping 
terms  is  proportional  to  the  second  derivative  of  pressure  and  is 
significant  only  in  regions  of  pressure  oscillation  where  the  truncation 
error  is  already  adversely  affecting  the  solution  (55,56). 

3.3  CONVERGENCE  CRITERIA 


Convergence,  as  applied  in  this  section,  refers  to  iteration 
convergence  as  opposed  to  truncation  convergence,  which  involves  the 
convergence  of  the  solution  of  the  FDE  to  the  solution  of  the  PDE  as  Ax,  Ar , 
and  At  -♦  0.  Iteration  convergence  refers  to  the  arrival  at  a  steady-state 
solution  to  the  discretized  Navier-Stokes  equations  within  some  acceptable 
tolerance  through  the  use  of  an  iterative  process.  As  stated  by  Roache 
(40),  there  are  no  definitive  criteria  for  iteration  convergence.  A 
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somewhat  subjective  judgement  of  convergence  must  be  made  based  upon  an 
examination  of  the  iterative  behavior  of  the  solution  flow  variables. 
Different  flow  variables,  as  well  as  variables  at  different  locations, 
converge  at  different  rates.  If  the  slowest  converging  variable  in  the 
flow-field  is  known,  it  should  be  the  most  closely  examined  for  convergence. 

In  this  case  of  a  supersonic  diffuser,  all  of  the  flow  variables  vary 
radially  along  the  length  of  the  diffuser  duct.  Attention  could  be  focused 
on  a  physical  variable,  such  as  pressure,  at  a  particular  point  in  the  flow 
field.  However,  a  clearer  picture  of  convergence  for  this  case  may  be 
obtained  by  monitoring  the  location  of  the  shock  (as  defined  by  the  radial 
position  along  the  centerline  where  the  Mach  number  equals  unity  -  the  sonic 
line  location  at  the  centerline).  The  location  of  the  core  flow  normal 
shock  will  be  dependent  upon  the  behavior  of  the  other  flow  variables,  which 
will  vary  as  disturbances  traverse  the  flow  field.  A  characteristic  time 
for  a  disturbance  to  cross  the  flowfield  may  be  defined  by: 

tch  "  Vuch  (3-35) 

where  L  is  the  length  of  the  flowfield  in  the  direction  parallel  to  the 
characteristic  velocity  u^.  Since  the  diffuser  problem  involves  mixed 

supersonic  and  subsonic  flow,  and  the  inflow  is  further  complicated  by  the 
approximately  sinusoidal  profile  of  the  flow  variables,  a  precise  definition 
of  the  characteristic  velocity  and  thus  the  time  for  a  disturbance  to 
traverse  the  entire  flowfield  is  difficult. 

Since  the  core  flow  in  the  diffuser  is  high  Reynolds  number  flow,  the 
advective  terms  in  the  conservation  equations  dominate  the  viscous  diffusion 
terms.  Focusing  attention  on  the  line  of  symmetry  of  the  diffuser  duct,  the 


characteristic  time  for  a  fine  mesh  grid  (Fig.  13)  can  be  approximated  by 
the  summation 
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where  JL  is  the  total  number  of  grid  points  in  the  radial  (flow)  direction. 
Thus,  the  characteristic  time  varies  considerably  depending  on  the  desired 
exit  conditions  (percent  of  normal  shock  recovery  pressure)  and  the  initial 
conditions,  and  has  to  be  computed  along  with  the  other  flow  variables. 
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Figure  13.  Characteristic  Time  Calculation. 


The  convergence  criteria  were  then  established  by  the  following 
procedure.  The  numerical  solution  was  either  initially  started,  or 
restarted  from  the  previous  case.  As  the  solution  converged,  shock  position 
on  the  line  of  symmetry  was  monitored  until  it  varied  less  than  ±1  percent 
for  one  characteristic  time  period.  At  the  end  of  this  characteristic  time 
period  the  solution  was  stopped  as  convergence  was  considered  to  be 
achieved.  Visual  comparison  of  Mach  number  contours,  line  of  symmetry 
pressure  and  temperature,  and  wall  pressure  profiles  confirmed  the 
convergence  of  the  solution  using  this  procedure.  A  sample  convergence  time 
history  plot  is  shown  in  Figure  14. 
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Figure  14.  Sample  Convergence  Time  History. 


CHAPTER  IV 


BOUNDARY  AND  INITIAL  CONDITION  IMPLEMENTATION 

As  in  Chapter  II,  boundary  and  initial  conditions  must  be  prescribed 
in  order  to  solve  the  conservation  equations  that  govern  the  flowfield. 
Values  of  the  dependent  variables  for  points  on  the  the  boundaries  of  the 
computational  domain  must  be  specified  in  order  for  the  numerical  operators 
to  solve  the  flowfield  correctly.  This  section  presents  the  numerical 
formulation  of  the  boundary  and  initial  conditions  used  for  the  solution  of 
the  supersonic  diffuser.  The  conditions  were  presented  in  a  mathematical 
context  in  Chapter  II. 

4 • 1  THE  UPSTREAM  BOUNDARY 

The  flow  properties  on  the  up-^ream  boundary  (AB  of  Figure  8)  are  held 
fixed  for  the  duration  of  the  computational  solution.  The  values  of  these 
properties  were  developed  from  the  experimental  data  of  Zumpano,  et  al . 

(13),  and  include  both  the  core  flow  values  from  the  source  flow  nozzles  ns 
well  as  the  flow  conditions  within  the  supersonic  ink  blower. 

4.2  THE  DOWNSTREAM  BOUNDARY 

The  downstream  boundary  (CD)  is  placed  at  the  exit  of  the  diffuser, 
where  only  small  gradients  in  the  flow  variables  are  expected  to  exist  due 
to  the  geometric  expansion  of  the  area  available  to  the  flow.  The  flow 
exiting  this  boundary  should  be  subsonic.  This  boundary  condition  is  the 
most  critical,  for  it  dictates  the  behavior  of  the  entire  flow  field. 

Because  of  the  experimental  set-up  (13),  the  values  of  the  flow  variables 
can  only  be  approximated  at  this  boundary.  Therefore,  the  conservative  flow 
variables  are  set  using  a  first-order,  zero  gradient  condition,  modified  to 


account  for  the  geometric  area  increase  between  points  (I,JL)  and  (I, JL-1) 
as  follows: 


PI,JL  “  pl 


(p  u) 


I  ,  JL 


(pv) 

(pe) 


I ,  JL 
I ,  JL 


JL- 1 

(pu) 


I ,  JL-1 


(pv) 


(pe) 


1 ,JL-1 


I,  JL-1 


va  .JL-1) 
yd.JL) 


(4-la) 

(4-lb) 

(4-lc) 


(4  -  Id) 


The  exit  pressure  is  then  imposed  for  all  points  across  the  outflow  boundary 
outside  of  the  boundary  layer.  This  is  done  by  deriving  u,  v,  and  T  from 
the  conservative  variables,  and  then  using  the  imposed  exit  pressure  to 
calculate  new  values  of  the  conservative  variables  for  the  next  iteration  of 
the  numerical  solution. 


4 . 3  THE  LINE  OF  SYMMETRY 

The  boundary  AD  in  Figure  8  is  a  line  of  symmetry  with  no  mass  or 
energy  flux  across  it.  A  first-order,  zero-gradient  condition  is  therefore 
applied  at  the  points  on  this  boundary.  Thus, 
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4.4  THE  DIFFUSER  WALLS 

The  diffuser  walls  (BC  in  Figure 
boundaries.  The  no-slip  condition  is 
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8)  are  treated  as  no-slip,  impermeable- 
imposed  as  follows: 

(4  -  3a ) 

(4  -  3b) 
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As  discussed  in  Chapter  II,  a  constant  wall  temperature  is  imposed  on  the 

diffuser  walls.  This  condition  is  applied  simply  as: 

T,  .  -  T  .  for  1  <  j  <  JL  (4-4) 

l ,  j  w 

The  density  at  th.2  wall  is  derived  from  the  assumption  of  zero  pressure 
gradient  across  the  boundary  layer  at  the  wall: 

If  -  0  <4-5> 


where  £  is  the  direction  normal  to  the  wall.  This  boundary  condition  on  the 
pressure  is  approximate,  but  due  to  the  extremely  close  spacing  of  the  grid 
points  in  the  x-direction  for  this  application,  the  additional  terms  arising 
from  the  derivative  of  the  wall  shear  were  assumed  to  have  a  negligible 
effect  on  the  value  of  the  wall  pressure  (39).  Thus, 
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4.5  INITIAL  CONDITIONS 


As  discussed  in  Chapter  II,  initial  values  of  the  conservative 
variables  must  be  imposed  over  the  computational  domain.  The  incoming  flow 
variables  are  fixed  in  time,  and  vary  nearly  sinusoidally  across  the 
diffuser  inlet.  An  average  of  those  variables  is  used  to  compute  a  one- 
dimensional  inviscid  normal  shock  solution  to  the  flow  through  the  diffuser, 
subject  to  the  constraint  of  conservation  of  mass.  This  one -dimensional 
solution  is  then  imposed  on  the  flow  field  as  the  starting  condition. 

Once  an  initial  case  of  the  supersonic  laser  diffuser  had  numerically 
converged  to  a  valid  solution,  each  succeeding  case  was  initialized  by 
imposing  new  downstream  pressure  constraints  or  eddy  viscosity  turbulence 
models  on  the  preceeding  converged  solution.  This  allowed  the  new  solutions 
to  converge  to  steady  state  at  a  much  greater  rate. 
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CHAPTER  V 


TURBULENCE  MODELING 

The  experimental  tests  used  as  a  basis  for  the  computational  solutions 
were  conducted  at  a  diffuser  entrance  unit  Reynolds  number  of  1.63  million 
per  foot,  or  a  Reynolds  number  based  on  diffuser  entrance  height  of  788,400. 
Given  the  inflow  from  ten  Mach  2.5  (nominal)  nozzles  plus  two  Mach  4.0 
(nominal)  bank  blowers,  a  complex  interacting  flow  field  exists  where 
several  turnback  shocks  are  encountered  before  the  flow  enters  the  diffuser. 
The  condition  of  the  flow  at  the  diffuser  entrance  is  thus  determined  to  be 
turbulent  (44) . 

Exact  simulation  of  the  dynamics  of  turbulence  for  practical 
applications  (such  as  this  complex  flowfield)  is  unattainable  (57).  The 
turbulent  nature  of  such  a  flow  can  be  approximated  in  the  computational 
solution  by  a  variety  of  closure  models  ranging  from  locally  dependent 
algebraic  models  to  the  more  complex  higher-order  models  such  as  the 
turbulent  kinetic  energy  and  Reynolds-Stress  models  (57,  58,  59,  60).  In 
all  cases  the  objective  of  the  turbulence  model  is  to  relate  known  mean- flow 
variables  to  the  unknown  Reynolds  stresses  of  the  turbulence.  Although  the 
higher  order  methods  can  account  for  the  time  history  of  the  turbulence  in  a 
flow,  they  require  that  accurate  initial  profiles  of  the  turbulent  shear 
stress  be  known  or  reliably  calculated  (61).  If  this  initial  condition 
cannot  be  described  accurately,  then  this  type  of  prediction  method  cannot 
be  effectively  utilized.  Since  this  proved  to  be  the  case  for  the  diffuser 
problem  under  consideration,  modeling  through  eddy  viscosity  concepts  was 
deemed  appropriate  (57).  Therefore,  locally  dependent  eddy  viscosity  models 
were  carefully  applied  over  the  computational  domain. 
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5.1  BOUNDARY -LAYER  MODEL 

A  dominating  flow  feature  is  the  boundary  layer  along  the  diffuser 
walls.  Separation  of  this  wall  boundary  layer  is  the  primary  influencing 
factor  on  whether  the  diffuser  flow  will  remain  "started"  (i.e.,  if  the 
shock  system  remains  stable  outside  of  the  optical  cavity  region)  or  if  too 
large  a  separation  region  will  cause  the  flow  to  choke  and  "unstart."  Since 
predicted  boundary  layer  thicknesses  are  at  least  an  order  of  magnitude 
smaller  than  the  diffuser  diameter,  a  two-dimensional  turbulence  model  was 
selected  as  sufficient  for  the  axisymmetric  cases  (57).  The  eddy  viscosity 
model  applied  in  this  region  is  a  modified  two  layer  Cebeci-Smith  model 
(31).  The  Cebeci-Smith  model  was  selected  rather  than  the  Baldwin-Lomax 
model  (62)  based  on  Hasen's  (39)  experience  and  Visbal  and  Knight's  (63) 
conclusion  that  the  Baldwin-Lomax  model  was  not  suitable  for  the 
determination  of  the  length  scale  when  strong  shock- induced  separations  are 
present.  Recent  work  (64)  supports  the  selection  of  the  Cebeci-Smith  model 
for  the  diffuser  flow  calculation. 

The  inner  layer  of  this  model  accounts  primarily  for  the  laminar 
sublayer  and  the  law-of- the -wall  region  adjacent  to  the  wall,  with  the  outer 
layer  accounting  for  the  remainder  of  the  boundary  layer  region  (the  law-of - 
the -wake  region. 

The  expression  for  the  inner  model  is  based  on  Prandtl's  mixing- length 
theory,  which  can  be  written  as  (in  the  coordinate  system  of  the  diffuser 
problem) : 
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where  v  is  the  local  tangential  velocity  parallel  to  the  wall  surface,  and 
xn  is  the  normal  distance  measured  from  the  wall.  The  mixing  length  in  this 
model  is  adapted  from  Van  Driest' s  sublayer  model  (65),  and  is  expressed  as: 


-x 

_ n 

-  k.  *„  <1  -  '  A+"  )  (5-2) 

The  basic  Cebeci-Smith  model  assumes  a  zero  gradient  pressure  condition  (the 
flat  plate  condition,  dp/dx  =  0),  but  can  be  modified  to  account  for  a 
pressure  gradient  in  the  direction  parallel  to  the  wall  within  the  sublayer. 
Such  a  modification  was  employed  and  is  discussed  in  a  later  section  of  this 
chapter . 

The  outer  region  eddy  viscosity  model  consists  of  a  Clauser-type 
displacement  thickness  model  defined  by  the  equation: 

€o  ”  k2  Pve$*  (5-3) 

where  v^  is  the  appropriate  tangential  velocity  at  the  boundary  layer  edge 
and 


is  the  kinematic  displacement  thickness  (31).  The  term  displacement 
thickness  is  to  be  taken  as  kinematic  displacement  thickness  throughout  this 
text . 

The  inner  and  outer  regions  of  each  boundary  layer  are  defined  by  the 

requirement  that  the  eddy  viscosity  remain  a  continuous  function  across  the 

entire  layer  (31,  UU) .  This  is  accomplished  by  applying  the  inner  model 

outward  from  the  wall  until  e  -  en  at  a  value  x  .  The  outer  model  is  then 
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applied  from  xc  outward  across  the  remainder  of  the  the  flowfield  in  the 

boundary  layer  region.  Figure  15  shows  a  typical  eddy  viscosity  profile 
across  this  region. 

The  above  constants  kj  ,  A+,  and  k2 ,  known  as  the  von  Karman  constant, 

the  sublayer  thickness,  and  the  Clauser  constant,  conventionally  have  values 
of  0.4,  26,  and  0.0168,  respectively  (31,  62).  Modification  of  these 
constants  to  account  for  the  effect  of  an  adverse  pressure  gradient  will  be 
discussed  later  in  this  chapter. 

The  expression  for  the  outer  region  eddy  viscosity  model  (eqn.  5-3) 
usually  contains  a  modification,  Klebanoff's  (65)  intermittancy  factor  (7), 
to  approximate  transition  out  of  the  boundary- layer  region  and  into  the  free 
stream  flow.  It  is  based  on  Klebanoff's  experimental  observation  (66)  that 
as  the  free  stream  is  approached,  the  turbulence  becomes  intermittent;  that 
is,  for  only  a  fraction  of  the  time  7  is  the  flow  turbulent.  For  the 
diffuser  flowfield  herein  examined,  such  intermittancy  is  inappropriate. 

This  modification  was  therefore  not  applied  and  the  outer  region  eddy 
viscosity  was  calculated  as  a  "constant"  throughout  the  core  flow  region  to 
approximate  the  effects  of  the  turbulent  mixing  from  the  source  flow 
nozzles . 

5.2  THE  CORE  FLOW  REGION 

Since  the  core  flow  region  entrance  Re  —  1.63  million  per  foot  and  this 
region  is  subject  to  the  flow  disturbances  from  the  mixing  of  ten  supersonic 
Mach  2.5  (nominal)  nozzles  and  the  attendant  turnback  shocks  as  that  flow 
crosses  the  optical  cavity  region  before  entering  the  diffuser,  this  flow  is 
considered  to  be  fully  turbulent  in  its  nature.  To  satisfy  the  need  for  a 
continuous  turbulent  eddy  viscosity  profile  across  the  flow  from  the 
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boundary  layer  Co  the  flow  centerline,  the  outer  region  boundary  layer  eddy 
viscosity  model  was  applied  in  this  region  also.  This  mixing  length 
formulation  was  used  to  approximate  the  effects  of  the  shear  layer  thickness 
from  the  nozzle  wakes  which  are  of  the  same  order  of  magnitude  as  the 

*&■ 

turbulent  boundary  layer  kinematic  displacement  thickness  6  . 

5 . 3  ADVERSE  PRESSURE  GRADIENT  MODIFICATIONS 

Algebraic  eddy  viscosity  models  with  fixed  values  for  the  von  Karman 
constant  (kj ) ,  the  Clauser  constant  (k2),  and  the  sublayer  thickness 

parameter  (A+)  are  known  to  be  inadequate  for  computing  flows  with  adverse 
pressure  gradients  such  as  those  in  diffusers  (39).  However.it  may  be  some 
time  before  higher-order  turbulence  models  are  sufficiently  developed  to  be 
more  accurate  and  reliable  than  this  simpler  model  for  engineering  purposes 
(67).  Additionally,  the  computational  resources  required  for  the  use  of 
higher-order  models  often  prohibit  their  use  for  all  but  relatively  simple 
flowfields.  The  flowfields  of  this  investigation  are  very  complex  due  to 
the  supersonic  mixing  of  the  flows  from  ten  nozzles  and  two  wall  mounted 
bank  blowers  (flow  energizers), 

Cebeci  described  (68)  his  modification  to  the  basic  Cebeci-Smith  model 
for  flows  with  adverse  pressure  gradient.  He  concluded  that  only  the  outer 
region  is  affected.  He  presented  the  modified  outer  region  eddy  viscosity 
model  in  the  form: 

e  -  a  [  (u  •  u)  dy  (5-5) 
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with 
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This  argument  results  in  values  of  a  (k2 ,  the  Clauser  constant)  always 


less  than  .0168.  Therefore,  the  value  of  e  obtained  is  lower  than  that 

m0 

for  the  non-adverse  pressure  gradient  case,  and  a  less  "stiff"  turbulence 
model  results. 

Jobe  and  Hankey  (67)  investigated  the  range  of  usefulness  of  the  two- 
layer  algebraic  eddy  viscosity  model.  Numerical  solutions  of  the  turbulent 
boundary- layer  equations  were  compared  with  the  experimental  data  of 
Ladermar.  (69),  Sturek  (70),  and  Waltrup  and  Schetz  (71),  with  the  objective 
of  increasing  the  accuracy  of  the  two-layer  eddy  viscosity  model  for  flows 
encountering  constant  adverse  pressure  gradients  by  adjusting  the  three 

constants  (kj ,  k2 ,  and  A+)  contained  therein.  Variation  of  these  universal 


constants  from  their  conventional  values  in  the  algebraic  eddy  viscosity 
models  has  been  suspected  for  some  time  (69  -  75)  for  flows  with  pressure 
gradient.  Values  from  0.35  to  0.75,  increasing  with  increasingly  adverse 
pressure  gradients,  have  been  reported  (69  -  71)  for  the  universal  mixing 
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length  constant  (kj),  conventionally  set  at  0.4  in  the  wall  region. 

Correlations  and  equations  depending  upon  the  pressure  gradient  have  also 

been  given  for  the  inner  region  damping  constant,  A+,  and  Clauser's 
constant,  k2 ,  that  appears  in  the  outer  region  viscosity  model. 

Jobe  and  Hankey's  analysis  (67)  concluded  that  the  inner  region  reacts 

immediately,  through  the  constants  kj  and  A+ ,  to  an  imposed  adverse  pressure 

gradient,  while  the  outer  layer  alone  requires  a  lag  equation  (varying  with 
streamwise  distance  and  variation  in  the  magnitude  of  the  pressure 
gradient),  to  permit  the  constant  k2  to  attain  its  maximum  value.  Their 


computations  showed  that  kj 


0.65,  and  that  A  increases  immediately  upon 


entering  the  region  of  adverse  pressure  gradient. 

For  the  present  numerical  experiment,  a  simple  model  for  the  variation 
of  k2  with  adverse  pressure  gradient  was  developed  by  plotting  the 

experimental  values  of  k2  obtained  by  Laderman,  Sturek,  and  Waltrup  and 

Schetz  as  a  function  of  pressure  gradient  (Figure  16).  Simple  linear 
regression  techniques  yielded  the  value  of  the  slope  for  the  change  of  k2 

versus  nondimensionalized  pressure  gradient  as  k  -  0.015.  The  increase  in 

SP 


k2  from  one  streamwise  location  to  the  next  could  then  be  written  as: 


k2  ~  k2  +  k  •  p  ,  *  (y .  -  y .  i ) 

2 .  2 .  ,  s  rgrad.  1-1 

J  J-l  P  6  J  J  J 


(5-9) 


where 


(Pw.  •  Pw.  >  /  P. 

,  -  - > - 1^1 - 

£radj  <yj  -  yj.x)  /  yt 


(5-10) 
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Thus  k2  was  allowed  to  increase  above  its  equilibrium  value  in  a  manner  that 
varies  with  both  pressure  gradient  and  streamwise  distance. 


d(X/l) 


Figure  16.  Variation  in  Clauser's  Constant  (k^) 

With  Nondimensionalized  Adverse  Pressure 

Gradient.  Experimental  data  of  Laderman  (69) , 

Sturek  (70),  and  Waltrup  and  Schetz  (71). 


CHAPTER  VI 


NUMERICAL  RESULTS 


This  chapter  will  discuss  the  numerical  results  of  the  computational 
solutions  using  the  algorithm,  boundary  conditions,  and  turbulence  modeling 
techniques  detailed  in  previous  chapters.  The  first  section  will  discuss  the 
experimental  cases  taken  as  the  basis  for  comparison  with  the  numerical 
solutions.  The  next  section  discusses  details  involved  in  the  actual 
computational  procedure.  The  last  section  covers  the  comparison  between  the 
experimental  and  computational  solutions. 

6.1  EXPERIMENTAL  DATA  BASE 

As  outlined  in  Chapter  1,  the  data  from  Zumpano,  et  al .  (13),  is  used 
as  the  experimental  basis  for  this  research  effort.  The  supersonic  fields 
of  flow  generated  experimentally  contain  both  the  highly  viscous  flow 
regions  along  the  diffuser  walls  as  well  as  shock  structures  ranging  from 
weak  reflected  shock  waves  to  the  strong  core  flow  normal  shock  formation. 
Wall  pressure  measurements  and  Schlieren  photographs  are  the  basis  for 
experimental  versus  computational  comparisons. 

TEST  APPARATUS  AND  FLOW  CONDITIONS 

The  radial-flow  diffuser  test  rig  was  described  in  Figures  U  through 
7.  The  walls  of  the  diffuser  were  instrumented  with  static  pressure  taps  to 
obtain  wall  pressure  data.  Additionally,  a  pitot-static  probe  was  employed 
to  obtain  the  data  to  characterize  the  flowfield  at  the  entrance  to  the 
diffuser 

Plots  of  diffuser  entrance  Mach  number  (M) ,  static  pressure  ( p g ) ,  and 
total  pressure  (p^)  are  shown  in  Figure  17. 
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DIFFUSER 

ENTRANCE  FLOWFIELD 


Zp,  cm 


=  2.55 


=  23.0 


=  204 


Figure  17.  Experimental  Diffuser  Entrance  Flowfield  Conditions; 
Mach  Number,  Static  Pressure,  Stagnation  Pitot 
Pressure  (Ref .  13) . 


Digitally  tabulated  data  obtained  across  the  diffuser  entrance  provided 
the  boundary  condition  information  at  the  entrance  to  the  computational 
grid,  and  is  provided  in  detail  in  Appendix  B.  The  nominal  core  flow 
diffuser  entry  conditions  are  summarized  in  Table  I. 


TABLE  I 


Nominal  Core  Flow  Diffuser  Entry  Conditions 


M  -  2.55 


P  -  23.0  torr  =  64.1  psf 
s 


P  -  204.0  torr  -  568.1  psf 
P 


T0  -  530.0  R  -  294.0  K 


T.  ,  -  230.4  R 

mle  t 


w  -  2.260  ke/sec  =  .155  slugs/sec 
core  c  R 


In  the  UTRC  experiment,  both  back  (exhaust)  pressure  and  bank  blower 
flow  rate  were  varied.  Bank  blowers  are  essential lv  devices  that  provide 
higher  energy  flow  along  the  diffuser  walls  than  in  the  core  flow  to  control 
the  amount  of  boundary  layer  separation.  Too  large  a  wall  boundary  layer 
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separation  region  will  cause  the  diffuser  core  flow  to  unstart;  i.e.,  the 
normal  shock  in  the  core  flow  region  becomes  unstable  and  travels  upstream 
to  the  diffuser  inlet  and  into  the  laser  optical  cavity.  Such  an  event  is 
catastrophic  to  laser  device  operation  as  it  not  only  spoils  the  optical 
purity  required  for  efficient  laser  resonator  operation  but  it  also  poses  an 
extreme  physical  hazard  to  the  laser  nozzle  hardware:  in  early  laser  device 
experiments  such  unstarts  have  resulted  in  source  nozzle  melting  due  to  the 
heat  transfer  that  occurs  when  the  normal  shock  hits  the  nozzle  blades.  One 
of  the  goals  of  the  UTRC  experimental  study  was  to  determine  the  necessity 
of  supersonic  bank  blowers  for  successful  diffuser  operation,  since  they  are 
somewhat  inefficient  if  a  significant  percentage  of  the  core  mass  flow  is 
required  to  sufficiently  energize  the  wall  boundary  layers.  Based  on 
experimental  data  (13)  three  bank  blower  cases  were  selected  for  continued 
experiment:  (1)  2ero  bank  blower  flow;  (2)  bank  blower  flow  at  10  percent 
of  the  core  mass  flow  rate;  and  (3)  bank  blower  flow  at  20  percent  of  the 
core  mass  flow  rate  (which  experimentally  turned  out  to  be  .193  rather  than 
.20  of  the  core  mass  flow  rate).  These  supersonic  bank  blowers  provided 
this  flow  at  a  nozzle  exit  Mach  number  of  4.0.  As  seen  in  Figure  18,  it  was 
determined  that  bank  blower  flow  of  greater  than  10  percent  of  the  core 
flow  was  required  in  order  to  obtain  a  started  core  flow. 

Figure  19  summarizes  the  experimental  diffuser  performance  (as 
determined  by  the  normal  shock  position  in  the  core  flow  measured  from 
schlieren  photographs)  for  the  20  percent  bank  blower  cases  (13). 

Normalized  (r/r^  )  position  of  the  normal  shock  is  presented  as  a  function 

of  the  back  pressure  (diffuser  exit  pressure),  expressed  as  a  fraction  of 


62 


FRACTION  OF  NORMAL  SHOCK  PRESSURE  RECOVERY 


1.0 


wbb/wn 


Figure  18.  Vaneless  Diffuser  Experimental  Performance  (Ref.  13) 


NORMALIZED  RADIAL  LOCATION  r/r0 


Figure  19.  Cylindrical  Vaneless  Diffuser  Performance; 

Experimental  Shock  Positions  Compared  With  One- 
Dimensional  Isentropic  Expansion  to  Inviscid 
Normal  Shock  Condition  (Ref.  13). 
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BASIC  FLOW  DIFFUSER  EXIT  WALL  PLANE  TURBULENCE  RESULTS 

CASE  CONDITION  CONFIGURATION  PRESSURE _ ENERGIZATION  MODEL _ 

la  Uniform  Core  Standard  60i  NSR  None  Standard  Cebeci-Smith  Numerical  Unstart 


Actual  Inflow  Standard  47%  NSR  W55=.195  Adverse  Pressure  Gradient  Unsteady  solution; 

Prof i le  PM=2.55  UTRC  Modified  Cebeci-Smith  shock  oscillates 

With  Outer  Region  Mod. 

_ _ _ _ _ A1  tered 


normal  shock  recovery  pressure.  The  experimental  diffuser  entrance,  rdg , 

was  at  6.095cm  (0.2ft)  from  the  center  of  the  cylindrical  test  apparatus. 
From  Figure  19,  for  the  case  where  the  back  pressure  was  set  at  60  percent 
of  the  normal  shock  recovery  pressure,  the  normal  shock  occurred  in  the 
diffuser  in  the  range  1.51  <  r/rdg  <  1.60.  Shock  position  could  also  be 

stated  in  terms  of  the  percentage  of  the  distance  through  the  diffuser  as 


SPOS  - 


r 


shock 


x 

diffuser  entrance 
^"diffuser 


(6-1) 


where  l^if fuser  i-s  the  total  length  of  the  diffuser.  Thus,  for  the  60 

percent  normal  shock  recovery  backpressure  case,  normal  shock  position  was 
in  the  range  0.166  <  SPOS  <  0. 195.  This  case  was  chosen  as  the  baseline 
computational  case,  to  be  supplemented  later  with  comparison  to  the  97 
percent  normal  shock  recovery  backpressure  case.  For  this  second  baseline 
case,  the  normal  shock  position  is  in  the  range  1.95  <  r/rde  <  2.05,  or 

0.309  <  SPOS  <  0.392. 

6.2  COMPUTATIONAL  DETAILS 

Solutions  were  attempted  for  the  axisymmetric  diffuser  for  the  cases 
shown  in  Table  II.  The  approach  taken  was  incremental,  beginning  with  the 
simplest  cases  and  proceeding  to  the  actual  baseline  computational  case, 
where  a  solution  was  obtained  for  the  actual  inflow  parameters  of  the  UTRC 
experimental  case.  These  solutions  were  all  performed  on  a  CRAY  1  digital 
computer  located  at  Kirtland  Air  Force  Base,  New  Mexico.  The  average  rate 

of  data  processing  was  2.91X10  "*  second  per  grid  point  per  iterative  time 
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increment.  In  this  section  the  results  of  these  computations  will  be 
discussed.  Full  details  of  the  computational  case  are  contained  in  the 
appendices . 

Case  la 

The  first  computational  attempt  was  exercised  against  the  condition  of 

a  uniform  core  inflow  at  M  -  2.5.  The  exit  pressure  was  set  at  60  percent 
of  normal  shock  recovery.  The  diffuser  configuration  was  the  baseline 
experimental  vaneless  diffuser.  No  wall  flow  energization  was  employed. 

The  basic  Cebeci- Smith  two-layer  algebraic  eddy  viscosity  turbulence  model 
was  used  to  approximate  the  physics  of  the  boundary  layer.  Computations 
were  started  from  an  initial  condition  that  imposed  the  one-dimensional 
inviscid  normal  shock  solution  to  the  flow  through  the  diffuser.  As  the 
computational  algorithm  progressed  in  time,  the  wall  boundary  layer 
developed  an  overly  large  unstable  separation,  choking  the  flow  and  forcing 
the  core  flow  normal  shock  to  travel  upstream  until  it  encountered  the 
upstream  boundary,  at  which  time  the  computation  was  terminated.  This 
result  represented  a  numerical  unstart  of  the  diffuser.  Figure  20  presents 
the  time  history  of  the  normalized  line  of  symmetry  normal  shock  location 
(SPOS  -  percentage  of  distance  through  the  diffuser).  Numerically,  it  took 
the  flow  2.8  milliseconds  to  unstart.  The  detailed  results  of  these 
computations  are  presented  as  Mach  number  contour  plots,  wall  and  line  of 
symmetry  pressure  plots,  and  line  of  symmetry  temperature  plots  in  Appendix 
C. 
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BASIC  CEBECI-SMITH  TIME  HISTORY  60%NSR  WBB=0 


Figure  20.  Time  History  of  Normalized  Core  Flow  Normal  Shock 
Position  (SPOS);  Navier-Stokes  Code  with  Basic 
Cebeci-Smith  Turbulence  Model;  60%  NSR;  Zero  Wall 
Bank  Blower  (Case  la) . 


Case  lb 

The  second  computational  experiment  was  identical  to  the  first  with 
only  one  exception:  the  basic  Cebeci-Smith  eddy  viscosity  turbulence  model 
was  modified  to  account  for  adverse  pressure  gradient  as  discussed  in 
Chapter  V.  Again,  a  uniform  core  inflow  was  assumed  without  wall  flow 
energization  employed.  Computations  were  started  from  the  inviscid  one- 
dimensional  normal  shock  condition  matching  this  exit  pressure.  As  the 
algorithm  marched  forward  in  time,  the  wall  boundary  layer  again  formed  an 
overly  large  unstable  separation  region  that  again  resulted  in  a  numerical 
unstart  of  the  diffuser  as  the  core  flow  normal  shock  moved  upstream  until 
it  encountered  the  upstream  boundary.  At  this  point,  approximately  3.4 
milliseconds  after  flow  "start",  computations  were  again  terminated.  Figure 
21  presents  the  time  history  of  normalized  shock  position  in  the  diffuser. 
Detailed  results  for  these  computations  are  presented  similarly  to  those  of 
Case  la  in  Appendix  D. 


TIME  (MILLISEC) 

Figure  21.  Core  Flow  Normal  Shock  Position  Time  History,  Case  lb 
(Uniform  Inflow,  60%  NSR,  wbb  -  0,  modified  Cebeci- 
Smith  Turbulence  Model). 
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Case  2a 


The  basic  Cebeci-Smith  eddy-viscosity  turbulence  model  was  employed 
against  the  baseline  diffuser  configuration  with  a  uniform  core  inflow  and  a 
uniform  wall  bank  blower  to  energize  the  wall  boundary  layer.  The  core 

inflow  was  again  at  M  -  2.5,  and  the  bank  blower  was  run  at  a  mass  flow 
ratio  of  0.20  of  the  core  flow  at  "  4.0.  These  inflow  conditions,  also 

utilized  in  Case  2b,  are  shown  in  Figures  23,  24,  25,  and  26.  The  starting 
condition  was  again  the  inviscid  one-dimensional  normal  shock  solution  for 
the  diffuser  exit  pressure  of  60  percent  of  normal  shock  recovery  pressure. 
Again,  a  numerical  unstart  occurred  as  the  solution  marched  forward  in  time. 
Figure  22  presents  the  time  history  of  this  computation,  showing  that  the 
unstart  occurred  7.6  milliseconds  after  flow  "initiation"  from  the  initial 
condition.  Details  of  these  computations  are  provided  in  Appendix  E. 


TIME  (MILLISEC) 

Figure  22.  Core  Flow  Normal  Shock  Position  Time  History,  Case  2a 
(Ideal  Inflow,  60%  NSR,  wbb  -  .2,  basic  Cebeci-Smith 
Turbulence  Model). 
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DO*T.) 


IDEAL  INFLOW  VELOCITY  PROFILE 


Figure  23.  Ideal  Inflow  Velocity  Profile. 

VELOCITY  VECTOR  PLOT  IDEAL  INFLOW 


Figure  24.  Ideal  Inflow  Velocity  Vector  Plot. 
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IDEAL  INFLOW  MACH  NUMBER  PROFILE 


Figure  26.  Ideal  Inflow  Momentum  Profile. 


Case  2b 


The  stiffened  eddy-viscosity  approach  to  turbulence  modelling  in  the 
presence  of  an  adverse  pressure  gradient  was  employed  against  the  baseline 
diffuser  configuration  with  a  uniform  core  inflow  and  a  uniform  wall  bank 
blower  at  the  same  flow  conditions  as  in  case  2a  (Figures  23,  24,  25  and 
26). The  numerical  code  was  written  to  incorporate  the  measurement  of 
pressure  gradient  along  the  diffuser  wall.  When  the  onset  of  an  adverse 
pressure  gradient  was  computed  during  time  step  t,  the  algebraic  eddy 

viscosity  model's  constants  kj ,  A+ ,  and  k2  were  recalculated  to  reflect  this 

effect  and  these  new  values  were  used  to  calculate  the  eddy  viscosity 
applied  at  the  next  time  step  (for  numerical  efficiency  new  values  of  eddy 
viscosity  were  actually  computed  only  every  tenth  time  step) .  The  starting 
condition  was  again  the  inviscid  one -dimensional  normal  shock  solution  for 
60  percent  normal  shock  recovery  diffuser  exit  pressure.  After 
approximately  five  characteristic  times  a  steady  numerical  solution  was 
achieved,  representing  a  started  diffuser  flowfield  with  the  core  flow 
normal  shock  located  23.9  percent  down  the  duct  (SPOS  =  .239;  r/r^e  = 

1.734).  Figure  27  presents  the  time  history  of  these  computations,  and 
Figure  28  shows  the  Mach  number  contours  of  the  converged  solution.  Figure 
29  presents  selected  individual  Mach  number  contours  of  the  converged 
solution.  Figure  30  displays  the  developed  velocity  profiles  for  the  steady 
solution.  These  are  presented  as  ratios  of  U/UINF.  U  represents  the  value 
of  the  local  streamwise  velocity  component.  UINF  is  a  constant  referenced 
to  the  flow  at  the  diffuser  entry,  an  is  an  average  defined  by 

UINF  -  m/pA  (6-2) 
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Note  that  the  wall  flow  energizing  bank  blower  retains  its  high  energy  flow 
characteristic  throughout  the  entire  length  of  the  diffuser.  Figures  31  and 
32  present  the  velocity  vector  plots  for  the  converged  solution.  From  this 
information  the  effect  of  the  strong  bank  blower  is  evident;  only  a  very 
small  wall  separation  region  occurs.  This  solution  represents  what  is 
effectively  an  ideal  case,  since  the  ideal  inflow  conditions  contain  none  of 
the  crossflow  effects  (including  turnback  oblique  shocks)  or  viscous  losses 
that  would  result  from  supersonic  mixing  from  multiple  source  nozzles. 

The  author  concludes  that  both  wall  flow  energization  and  the  adverse 
pressure  gradient  modification  to  the  basic  Cebeci-Smith  turbulence  model 
are  required  to  attain  a  "started"  flow  in  the  computational  representation 
of  a  short  diffuser.  Wall  pressure,  and  line  of  symmetry  pressure  and 
temperature  ratios  throughout  the  converged  solution  flowfield  are  presented 
in  Figure  33,  where  the  x  axis  is  the  percentage  of  distance  along  the 
diffuser  length.  The  overshoot  in  the  wall  pressure  in  the  lambda  shock 
impingement  region  is  particularly  worthy  of  note  because  it  was 
unanticipated  and  it  appears  in  the  experimental  data  of  Zumpano ,  et  al. 

(30).  Figure  34  presents  the  kinematic  displacement  thickness  6  (as  a 
percentage  of  the  diffuser  diameter)  computed  along  the  length  of  the 
diffuser.  At  its'  maximum  'alue  immediately  behind  the  shock  separation 

point,  6  is  less  than  one  percent  of  the  diffuser  diameter.  Appendix  F 
provides  the  details  of  these  computations. 
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SPOS 


TIME  (MILLISEC) 

Figure  27.  Core  Flow  Normal  Shock  Position  Time  History,  Case  2b 
(Ideal  Inflow,  60%  NSR,  wbb  -  .2,  modified  Cebeci- 
Smith  Turbulence  Model). 
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Figure  28.  Converged  Solution  Mach  Contours,  Cas-?  2b. 
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M=25  CONTOUR  60%NSR  Ideal  Inflow  Solution  M=1.0  CONTOUR  60%NSR  Ideal  Inflow  Solution 


M=1.5  CONTOUR  60%NSR  Ideal  Inflow  Solution 
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M=2.0  CONTOUR  60%NSR  Ideal  Inflow  Solution 


M=3.0  CONTOUR  60%NSR  Ideal  Inflow  Solution  M=4.0  CONTOUR  60%NSR  Ideal  Inflow  Solution 


Figure  29.  Selected  Individual  Mach  Contours,  Case  2b  Solution. 
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Figure  30.  Velocity  Profiles,  Case  2b  Converged  Solution. 
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VELOCITY  VECTOR  PLOT  60%NSR  Ideal  Inflow  Solution 


Figure  31.  Velocity  Vector  Plot,  Case  2b  Converged  Solution. 


Figure  32.  Velocity  Vector  Plot,  Case  2b  Converged  Solution, 
Expanded  View  Showing  Separation  Region  Detail. 


77 


Figure  33.  Case  2b  Converged  Solution  Flowfield  Conditions; 

a)  Wall  Pressure  Ratio;  b)  Line  of  Symmetry  Press 
Ratio;  c)  Line  of  Symmetry  Temperature  Ratio. 


Case  2c 


From  the  converged  solution  of  Case  2b,  the  exit  pressure  was  lowered 
to  47  percent  of  normal  shock  recovery  and  the  algorithm  was  allowed  to 
march  forward  in  time,  achieving  a  new,  steady,  converged  solution  after  ten 
additional  characteristic  times.  This  solution  contains  a  core  flow  normal 
shock  location  at  approximately  41  percent  of  the  baseline  diffuser  length 
(SPOS  =  0.407;  r/r^  -  2.253).  The  time  history  of  this  converged  solution 

is  presented  in  Figure  35.  Figure  36  presents  a  Mach  contours  plot  of  the 
converged  solution.  Figure  37  presents  selected  individual  Mach  contours  of 
the  converged  solution.  The  developed  velocity  profiles  for  this  steady 
solution  are  presented  in  Figure  38,  again  showing  similar  characteristics 
to  the  flowfield  of  Case  2b.  Figure  39  presents  the  velocity  vector  plots, 
which  again  show  only  a  very  small  wall  separation  region.  The  converged 
flowfield  wall  pressure,  line  of  symmetry  pressure  and  temperature  ratios 
are  presented  in  Figure  40.  The  overshoot  of  the  wall  pressure  in  the 
region  of  lambda  shock  impingement  is  still  present,  but  it  is  not  as  severe 
as  for  the  60  percent  normal  shock  recovery  backpressure  case.  The 

k 

variation  in  kinematic  displacement  thickness  6  along  the  diffuser  wall  is 
shown  in  Figure  41.  Again,  it  is  in  the  one  percent  range.  Figure  42 
displays  a  visual  comparison  of  both  the  60  percent  and  47  percent  normal 
shock  recovery  backpressure  steady  solution  Mach  contours. 
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SPOS 


R(FT.) 

Figure  36.  Converged  Solution  Mach  Contours,  Case  2c. 
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Figure  37.  Selected  Individual  Mach  Contours,  Case  2c  Solution. 
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Figure  42.  Comparison  of  Case  2b  and  2c  Converged  Solution 
Mach  Contours . 
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Case  2d 


For  the  next  subset  of  this  case,  Cebeci's  (outer  layer  only) 
modification  to  the  standard  Cebeci-Smith  eddy  viscosity  turbulence  model 
was  substituted  for  the  modification  described  in  Chapter  V  and  employed  in 
Case  2b.  The  numerical  algorithm  was  allowed  to  evolve  time  from  the  Case 
2b  steady  solution,  and  again  the  separation  "bubble"  along  the  diffuser 
wall  enlarged  rapidly  and  the  core  flow  normal  shock  moved  upstream  until  it 
reached  the  inflow  boundary,  representing  a  numerically  unstarted  diffuser. 

Case  3a 

In  Neumann  and  Lustwerk's  landmark  supersonic  wind  tunnel  diffuser 
design  effort  (11),  they  reported  that  in  order  to  obtain  a  started  flow 
condition  in  the  wind  tunnel  test  section  (i.e.,  the  test  section  was 
entirely  supersonic  with  a  stable  normal  shock  at  a  downstream  location) ,  a 
very  long  diffuser  was  required  if  no  wall  boundary  layer  control  was 
employed.  The  long  diffuser  was  required  to  accommodate  the  large 
separation  region  caused  by  the  terminal  shock/boundary- layer  interaction 
and  allow  sufficient  distance  for  flow  reattachment.  They  presented  a  graph 
in  which  the  required  diffuser  length  was  given  in  multiples  of  the  test 
section  diameter  as  a  function  of  the  test  section  Mach  number.  Based  on 
the  mean  inflow  conditions  for  the  experimental  diffuser,  Neumann  and 
Lustwerk's  results  indicated  that  a  diffuser  of  length  12  times  the  diameter 
of  the  baseline  experimental  configuration  would  be  required  to  guarantee  a 
started  condition.  To  determine  if  a  numerical  representation  of  a  started 
diffuser  could  be  obtained  for  this  configuration,  a  new  grid  was  generated 
to  correspond  to  the  required  diffuser  length  and  a  numerical  experiment  was 

run.  Uniform  inflow  at  M  -  2.5  was  assumed  with  the  exit  pressure  at  60 
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percent  of  normal  shock  recovery  pressure,  and  no  wall  flow  energization  was 
employed.  For  this  experiment,  the  adverse  pressure  gradient  model 
developed  in  Chapter  V  was  incorporated.  This  stiffened  eddy-viscosity 
approach  resulted  in  a  started  diffuser  with  the  core  flow  normal  shock 
fixed  at  r/r^e  “  1.48,  or  in  terms  of  percentage  of  distance  through  the 

diffuser  of  SPOS  =  0.156  (15.6  percent  of  the  baseline  diffuser  length). 

For  the  given  inflow  and  backpressure  conditions,  the  one-dimensional 
inviscid  normal  shock  solution  for  shock  position  is  SPOS  =  0.25  (25  percent 
of  the  baseline  diffuser  length) .  The  shock  position  is  given  here  as  a 
fraction  of  baseline  diffuser  length,  rather  than  "long  duct"  diffuser 
length,  for  comparison  purposes  against  the  other  computational  cases  run 
with  the  baseline  diffuser  length.  Figure  43  presents  the  time  history  of 
these  computations,  showing  that  a  stable,  converged  solution  was  achieved 
250  milliseconds  after  flow  "initiation"  from  the  one-dimensional  inviscid 
intial  condition.  Figure  44  presents  the  Mach  contours  for  the  converged 
solution,  showing  the  full  duct  length.  Figures  45a  and  b  compare  a  closeup 
of  a  length  corresponding  to  the  baseline  diffuser  to  the  long  diffuser 
length.  Selected  individual  Mach  contours  are  presented  in  Figure  46. 
Velocity  profiles  for  the  converged  solution  are  shown  in  Figure  47,  and  the 
vector  plots  are  presented  in  Figures  48  and  49,  showing  the  persistence  of 
the  separated  flow  region  through  nearly  80  percent  of  the  long  diffuser 
length.  This  is  consistent  with  Neumann  and  Lustwerk's  (11)  experimental 
conclusion.  The  converged  solution  flowfield  wall  pressure,  line  of 
symmetry  pressure  and  temperature  ratios  are  presented  in  Figure  50. 

Without  the  flow  energizing  wall  bank  blowers,  no  overpressure  (or 
"overshoot")  response  is  observed  in  the  behavior  of  the  wall  pressure,  as 
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it  responds  smoothly  in  recovering  to  the  exit  pressure.  Plots  of  the 

computed  values  of  the  kinematic  displacement  thickness,  S  ,  are  presented 
in  Figures  51a  and  b.  The  maximum  value  achieved  is  nearly  50  percent  of 
the  diffuser  diameter,  and  is  physically  unreal.  This  is  a  direct  result  of 

"k 

the  difficulty  of  computing  S  when  there  is  a  large  separation  region 
present.  Without  wall  energizing  bank  blowers  (which  are  operated  at  a 
higher  Mach  number  than  the  core  flow)  it  is  apparent  that  the  long  diffuser 
length  is  necessary  to  provide  sufficient  recovery  distance  for  the  large 
wall  boundary  layer  separation  region.  Details  are  provided  in  Appendix  G. 


TIME  (MILL! SEC) 

Figure  A3.  Core  Flow  Normal  Shock  Position  Time  History,  Case  3n 
(Long  Duct  Diffuser,  Uniform  Inflow,  60%  NSR,  wbb  =  0, 
modified  Cebeci-Smith  Turbulence  Model). 
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MACH  CONTOURS  60%NSR  Long  Duct  Solution 
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Figure  46.  Selected  Individual  Mach  Contours, 
Case  3a  Solution. 
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Figure  47.  Velocity  Profiles,  Case  3a  Converged  Solution. 
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VELOCITY  VECTOR  PLOT  60%NSR  Long  Duct  Solution 
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Figure  68.  Velocity  Vector  Plot,  Case  3a  Converged 


49.  Case  3a  Converged  Solution  Velocity  Vector  Plot; 

a)  Expanded  View  Corresponding  to  Baseline  Diffuser 
Length;  b)  Expanded  View  Showing  Separation  Region 
Detail . 
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Figure  50.  Case  3a  Converged  Solution  Flowfield  Conditions; 

a)  Wall  Pressure  Ratio;  b)  Line  of  Symmetry  Pressure 
Ratio;  c)  Line  of  Symmetry  Temperature  Ratio. 
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Figure  51.  Plot  of  Case  3a  Converged  Solution  Kinematic 

Displacement  Thickness;  a)Full  Diffuser  Length; 
b)  Length  Corresponding  to  Baseline  Diffuser. 
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Case  3b 


From  the  converged  solution  of  case  3a,  the  exit  backpressure  was 
lowered  to  47  percent  of  normal  shock  recovery  pressure  and  the  solution  was 
marched  forward  in  time.  A  new,  steady  state,  converged  solution  was 
achieved  after  four  characteristic  times.  This  solution  contains  a  core 
flow  normal  shock  fixed  at  r/r -  1.99,  or  in  terms  of  distance  through  the 

(baseline)  diffuser  of  SPOS  -  0.322  (32.2  percent  of  the  baseline  diffuser 
length).  For  the  given  inflow  and  exit  backpressure  conditions,  the  one¬ 
dimensional  inviscid  normal  shock  solution  for  line  of  symmetry  shock 
position  is  SPOS  =  0.455  (45.5  percent  of  the  baseline  diffuser  length). 
Again,  the  shock  position  is  presented  as  a  fraction  of  baseline  diffuser 
length,  rather  than  "long  duct"  length,  for  comparison  purposes  with  the 
other  computational  cases.  Figure  52  presents  the  time  history  of  this 
steady,  stable  solution.  Figure  53  presents  the  Mach  contours  for  the 
converged  solution  showing  the  full  diffuser  length.  Figures  54a  and  b 
compare  Mach  contours  for  the  full  duct  length  with  a  close-up  of  a  length 
corresponding  to  the  baseline  diffuser  length.  Selected  individual  Mach 
contours  are  presented  in  Figure  55.  Velocity  profiles  for  the  converged 
solution  are  presented  in  Figure  56,  and  the  corresponding  velocity  vector 
plots  are  shown  in  Figures  57  and  58.  The  persistence  of  the  separated  flow 
region  well  beyond  the  baseline  diffuser  length  is  again  quite  apparent. 

The  converged  solutions  for  wall  pressure,  line  of  symmetry  pressure  and 
temperature  ratios  are  presented  in  Figure  59.  Again,  no  "overshoot" 
response  is  observed  for  the  wall  pressure  as  it  responds  smoothly  in 
recovering  to  exit  pressure.  Plots  of  the  computed  values  of  kinematic 
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SPOS 


displacement  thickness  6  are  presented  in  Figures  60a  and  b,  again  showing 
unrealistically  large  values  developed  from  the  large  separation  region. 
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Figure  52.  Core  Flow  Normal  Shock  Position  Time  History,  Case  3b 
(Long  Duct  Diffuser,  Uniform  Inflow,  47%  NSK,  wbb  ■»  0, 
modified  Cebeci - Smi th  Turbulence  Model). 
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Figure  55.  Selected  Individual  Mach  Contours, 
Case  3a  Solution. 
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Figure  56.  Velocity  Profiles,  Case  3b  Converged  Solution. 
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VELOCITY  VECTOR  PLOT  47%NSR  Long  Duct  Solution 


Converged  Solution. 
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Figure  58.  Case  3b  Converged  Solution  Velocity  Vector  Plot; 

a)  Expanded  View  Corresponding  to  Baseline  Diffuser 
Length;  b)  Expanded  View  Showing  Separation  Region 
Detail . 
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Figure  59.  Case  3b  Converged  Solution  Flowfield  Conditions; 

a)  Wall  Pressure  Ratio;  b)  Line  of  Symmetry  Pressure 
Ratio;  c)  Line  of  Symmetry  Temperature  Ratio. 
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Figure  60.  Plot  of  Case  3b  Converged  Solution  Kinematic 

Displacement  Thickness;  a)Fuil  Diffuser  Length; 
b)  Length  Corresponding  to  Baseline  Diffuser. 
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Case  4a 


Employing  a  stiffened  eddy  viscosity  turbulence  model,  steady, 
converged  solutions  for  cases  2b  and  2c  were  achieved.  The  same  model  was 
now  employed  to  simulate  the  actual  experimental  flow  conditions  for  the 
baseline  UTRC  experiment  with  the  exit  pressure  set  at  60  percent  of  normal 
shock  recovery  pressure.  Figure  61  presents  the  actual  inflow  velocity 
conditions,  obtained  from  the  experimental  data  of  Zumpano,  et  al.  (13). 
Figures  62  and  63  present  the  actual  inflow  Mach  number  and  momentum 
profiles,  respectively.  Computations  were  begun  from  the  same  inviscid  one¬ 
dimensional  case  employed  previously.  After  ten  characteristic  times,  the 
numerical  solution  converged  to  a  steady  asymptote  with  the  core  flow  normal 
shock  located  at  19  percent  of  the  diffuser  duct  length  (SPOS  -  0.194;  r/r^ 

«  1.59).  The  time  history  for  this  converged  solution,  presenting  core  flow 
normal  shock  position  as  a  percentage  of  baseline  diffuser  length  versus 
time,  is  presented  in  Figure  64. 

Figure  65  presents  the  Mach  number  contours  for  this  converged 
solution,  followed  by  simulated  Schlieren  photographs  in  Figures  66  and  67. 
These  presentations  were  developed  from  the  Mach  number  and  density  data 
files.  The  strength  of  the  wall  energizing  bank  blowers  and  the  reflection 
shocks  in  the  nozzle  mixing  zone  are  readily  apparent.  Figure  68  displays 
developed  velocity  profiles  in  steady  state.  Examination  of  this 
information  reveals  that  the  inflow  velocity  profiles  from  the  10  source 
nozzles  are  thoroughly  mixed  just  upstream  of  the  core  flow  normal  shock. 

The  additional  momentum  of  the  wall  energizing  bank  blower  is  also  seen  to 
persist  all  the  way  through  the  diffuser  to  the  exit.  Figure  69a  presents  a 
velocity  vector  plot  for  this  solution,  with  an  expanded  view  of  the  shock 
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region  presented  in  Figure  69b.  The  flow  separation  along  the  wall  is 
clearly  shown  to  be  less  than  10  percent  of  the  diffuser  width.  The  flow 
separates  from  the  diffuser  wall  at  approximately  15  percent  of  the  diffuser 
length,  with  reattachment  occurring  at  approximately  33  percent  of  the 
diffuser  length.  Figure  70  shows  sonic  contour,  again  providing  visual 
evidence  of  the  shock  impingement  structure.  Selected  individual  Mach 
contours  for  the  converged  solution  are  presented  in  Figure  71.  The 
computed  flowfield  wall  pressure,  line  of  symmetry  pressure  and  temperatue 
ratios  are  presented  in  Figure  72.  Consistent  with  the  ideal  flow  results, 
the  behavior  of  the  wall  pressure  also  exhibits  a  large  overshoot.  This  is 
attributable  to  the  fact  that  the  energizing  bank  blower  flow  remains 
essentially  unmixed  with  the  core  flow.  The  higher  energy,  higher  Mach 
number  bank  blower  flow  generates  a  stronger  shock  before  mixing  with  the 
lower  Mach  number  core  flow  and  finally  adjusting  to  diffuser  exit  pressure. 

Figure  73  displays  the  computed  kinematic  displacement  thickness  6  (as  a 
percentage  of  diffuser  diameter)  computed  along  the  length  of  the  diffuse^ 

At  its'  maximum  value,  6  is  five  percent  of  the  diffuser  diameter.  Details 
of  the  solution  evolution  are  presented  in  Appendix  H. 

Eddy  viscosity  coefficients  for  both  the  inner  and  outer  regions  of  the 
modified  Cebeci-Smith  algebraic  turbulence  model  are  examined  in  Figures  1U 
through  77.  In  each  figure  these  coefficients  are  presented  first  for  the 
entire  computational  flowfield  and  then  in  an  expanded  view  showing  only  the 

"Jc 

behavior  near  the  wall.  The  kinematic  displacement  thickness  6  for  each 
corresponding  streamwise  flow  location  is  also  noted  on  each  plot.  The 
results  of  this  numerical  experiment  are  consistent  with  the  theory 
presented  in  Chapter  V,  Figure  15.  Application  of  the  present  modification 


112 


I 


to  accommodate  severe  adverse  pressure  gradients  produces  computational 
results  consistent  with  expected  theoretical  behavior.  The  cross  over  from 
the  laminar  sublayer  viscosity  coefficient  e ^  to  the  Clauser-type  outer 

region  eddy  viscosity  coefficient  £q  is  seen  to  always  occur  at  less  than 

10  percent  of  the  distance  from  the  diffuser  wall.  The  outer  region  eddy 
viscosity  length  scale,  based  on  the  kinematic  displacement  thickness,  also 
appears  appropriate,  especially  upstream  of  the  normal  shock  where  the  flow 
vorticity  is  observed  to  vary  signif icantly  across  the  flow  field.  The  core 
flow  normal  shock  occurs  near  grid  line  j  -  60,  and  the  effect  on  the  outer 
region  eddy  viscosity  coefficient  is  notable  as  seen  in  Figure  75e.  At  this 
station  in  the  flow  the  eddy  viscosity  is  an  order  of  magnitude  greater  than 
its'  value  upstream  of  the  normal  shock.  This  is  attributable  to  both  the 
density  jump  across  the  shock  as  well  as  the  recirculation  zone  in  the 
separated  flow  region  along  the  wall,  which  causes  a  large  computed  value 
* 

for  6  .  Typically,  this  recirculation  zone  behavior  is  a  weak  point  in  zero 
order  eddy  viscosity  models  (59)  .  It  is  observed  that  £  decreases  once  the 
flow  is  reattached. 
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ACTUAL  INFLOW  VELOCITY  PROFILE 


VELOCITY  VECTOR  PLOT  INFLOW  PROFILE 


Figure  61.  Actual  Inflow  Velocity  Conditions  (Ref.  13); 

a)  Velocity  Profile;  b)  Velocity  Vector  Plot. 
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Figure  64.  Core  Flow  Normal  Shock  Position  Time  History,  Case  4a 
(Actual  Inflow,  60%  NSR,  wbb  -  .195, 
modified  Cebeci-Smith  Turbulence  Model). 
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Figure  65.  Converged  Solution 


Figure  67.  Computer  Generated  (Simulated)  Schlieren  Photograph, 
Case  4a  Converged  Solution;  Detail  of  Wall  Bank 
Blower. 


Figure  68.  Velocity  Profiles,  Case  Ua  Converged  Solution. 
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Figure  71.  Selected  Individual  Mach  Contours,  Case  4a  Solution. 
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Figure  73.  Plot  of  Case  4a  Converged  Solution  Kinematic 
Displacement  Thickness. 


25 


X1X/X  XIX/X 


PLOT  OF  EMI  AND  EMO  60%NSR  90LUTI0N  (J=10)  PLOT  OF  EMI  AND  EMO  60%  NSR  SOLUTION  (J=10) 


PLOT  OF  EMI  AND  EMO  60HNSR  SOLUTION  (J=20)  PLOT  OF  EMI  AND  EMO  60%  NSR  SOLUTION  (J=20) 


EM  X  IE-06  EM  X  1E+06 


PLOT  OF  EMI  AND  EMO  60~NSR  SOLUTION  (J=3C)  PLOT  OF  EMI  AND  EMO  60%  NSR  SOLUTION  (J=30) 


EM  X  IE-06  EM  X  1E+06 


Figure  74.  Eddy  Viscosity  Coefficient  Detail,  Case  4a  Converged 
Solution  (j-10,  20,  30). 
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Figure  75.  Eddy  Viscosity  Coefficient  Detail,  Case  Aa  Converged 
Solution  (j-AO,  50,  60). 
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Case  4b 


From  the  60  percent  normal  shock  recovery  backpressure  converged 
solution  for  the  actual  inflow  conditions  (Figure  17),  the  exit  backpressure 
was  lowered  to  47  percent  of  normal  shock  recovery  pressure  and  the 
algorithm  was  allowed  to  march  forward  in  time.  A  steady,  converged 
solution  after  five  additional  characteristic  times  was  achieved  with  the 
core  flow  normal  shock  position  at  approximately  35  percent  of  the  baseline 
diffuser  length  (SPOS  -  0.343;  r/r^g  ”  2.05).  The  time  history  of  this 

converged  solution  is  presented  in  Figure  78;  the  Mach  number  contours  are 
presented  in  Figure  79. 

Figure  80  displays  the  developed  velocity  profiles  for  the  steady 
solution,  and  Figure  81  presents  the  velocity  vector  plots.  The  size  of  the 
large  wall  separation  region,  nearly  20  percent  of  the  diffuser  diameter, 
with  significant  regions  of  reverse  flow  along  the  diffuser  wall,  is  quite 
apparent.  Reattachment  of  this  flowfield  occurs  only  slightly  upstream  of 
the  diffuser  exit.  The  size  of  this  separation  region  is  attributable  to 
the  much  stronger  shock  structure,  as  both  the  core  flow  and  the  wall  flow 
energizing  bank  blowers  accelerate  farther  into  the  radially  increasing  duct 
area  before  generating  terminal  shocks  at  higher  Mach  numbers  than  for  the 
60  percent  normal  shock  recovery  backpressure  case.  The  sonic  contour 
is  presented  in  Figure  82.  Selected  individual  Mach  contours  are 
presented  in  Figure  83.  The  computed  wall  pressure,  line  of  symmetry 
pressure  and  temperature  ratios  are  presented  in  Figure  84.  The  overshoot 
behavior  of  the  wall  pressure,  observed  in  both  ideal  flow  solutions  and  in 
the  60  percent  normal  shock  recovery  backpressure  case,  is  not  evident  here, 


»] 


and  the  wall  pressure  is  observed  to  recover  smoothly  to  the  diffuser  exit 
pressure.  Details  of  the  solution  evolution  are  provided  in  Appendix  I. 

Figure  85  presents  a  plot  of  the  computed  kinematic  displacement 

thickness  6  along  the  length  of  the  diffuser.  It  is  seen  to  achieve  a 
maximum  value  of  approximately  25  percent  of  the  diffuser  diameter,  a  very 
large  value  attributable  to  the  large  separation/recirculation  region 
present  downstream  of  the  shock  impingement  on  the  boundary- layer .  Eddy 
viscosity  coefficients  for  both  the  inner  and  outer  regions  of  the  modified 
Cebeci-Smith  algebraic  turbulence  model  are  examined  in  Figures  86  through 
89,  in  the  same  manner  that  they  were  presented  for  the  60  percent  normal 
shock  recovery  converged  solution,  with  similar  conclusions. 


131 


Figure  78.  Core  Flow  Normal  Shock  Position  Time  History,  Case  4b 
(Actual  Inflow,  47%  NSR,  wbb  -  .195, 
modified  Cebeci-Smith  Turbulence  Model). 
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Figure  79.  Converged  Solution  Mach  Contours,  Case  4b. 
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Figure  80.  Velocity  Profiles,  Case  4b  Converged  Solution. 
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Figure  84.  Case  4b  Converged  Solution  Flowfield  Conditions; 

a)  Wall  Pressure  Ratio;  b)  Line  of  Symmetry  Pressure 
Ratio;  c)  Line  of  Symmetry  Temperature  Ratio. 
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Figure  85.  Plot  of  Case  4b  Converged  Solution  Kinematic 
Displacement  Thickness. 
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Figure  87.  Eddy  Viscosity  Coefficient  Detail,  Case  4b  Converged 
Solution  (j-40,  50,  60). 
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Figure  88.  Eddy  Viscosity  Coefficient  Detail,  Case  4b  Converged 
Sol',  cion  (j-70,  75,  80). 
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Figure  89.  Eddy  Viscosity  Coefficient  Detail,  Case  4b  Converged 
Solution  (j-90,  100). 
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Case  4c 


From  the  47  percent  normal  shock  recovery  (NSR)  converged  solution  as 
an  initial  condition,  the  adverse  pressure  gradient  modification  to  the 
conventional  Cebeci-Smith  eddy  viscosity  turbulence  model  was  turned  off. 
The  numerical  solution  was  then  marched  forward  in  time  employing  the  basic 
Cebeci-Smith  model.  The  diffuser  unstarted  in  slightly  more  than  2.0 
milliseconds.  This  behavior  is  shown  in  Figure  90,  and  the  details  of  the 
unstart  from  the  stable,  converged  solution  are  provided  in  Appendix  J. 

This  demonstrates  conclusively  that  the  adverse  pressure  gradient 
modification  to  the  basic  Cebeci-Smith  eddy  viscosity  turbulence  model  is 
critical  to  achieve  a  numerical  solution  compatible  with  experimental 
results . 


Figure  90.  Core  Flow  Normal  Shock  Position  Time  History,  Case  4c, 
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Case  4d 


The  47  percent  normal  shock  recovery  backpressure  case  was  used  as  the 
initial  condition  for  two  additional  sensitivity  analyses  of  the  adverse 
pressure  gradient  modification  to  the  basic  Cebeci-Smith  eddy  viscosity 
turbulence  model.  For  the  first  of  these  sensitivity  analyses,  the  value  of 
the  von  Karman  (or  universal  mixing  length)  constant  kj  was  increased  from 

its  nominal  (no  adverse  pressure  gradient)  value  of  0.40  to  0.50  (rather 
than  to  0.65,  the  value  computed  by  Jobe  and  Hankey) .  The  immediate 

response  of  the  sublayer  thickness  parameter  (A+)  from  its  nominal  value  of 
26  to  65  was  retained,  as  was  the  change  rate  of  the  Clauser  constant  k2 

that  was  employed  in  the  adverse  pressure  gradient  modification  developed  in 
Chapter  V.  The  numerical  solution  was  marched  forward  in  time  from  the 
converged  47  percent  NSR  case  with  this  modification  to  the  turbulence 
model.  The  core  flow  normal  shock  is  observed  to  ocillate  periodicaly  in 
the  diffuser,  with  shock  position  varying  regularly  from  25  percent  to  42 
percent  of  the  diffuser  length,  but  the  diffuser  did  not  unstart.  Figure  91 
presents  the  time  history  of  these  computations,  with  details  presented  in 
Appendix  K. 

The  von  Karman  constant,  kj ,  strongly  influences  the  mixing  length 

(eqn.  5-2)  in  the  sublayer  model.  For  the  situation  postulated,  the  mixing 
length  is  only  77  percent  of  its'  value  computed  using  the  higher  value  for 
kj .  This  results  in  an  inner  region  eddy  viscosity  coefficient  only  60 

percent  as  large.  With  a  smaller  inner  region  eddy  viscosity,  the  flow 
along  the  diffuser  wall  is  more  susceptable  to  early  separation.  The 
crossover  point  for  transition  to  the  outer  region  model  is  also  lowered. 
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The  net  effect  is  initially  an  overall  lower  value  for  the  eddy  viscosity, 
which  allows  the  separation  region  to  grow  overly  large.  This  leads  to  the 

calculation  of  a  much  larger  displacement  thickness  6  ,  which  in  turn  drives 
the  outer  region  eddy  viscosity  to  a  much  higher  value  and  then  over  - 
suppresses  the  recirculation  region.  This  interaction  between  the  inner  and 
outer  region  eddy  viscosities  results  in  a  complex  temporal  behavior  of 
separation  and  overcorrection. 


TIME  (MILUSEC) 


Figure  90.  Core  Flow  Normal  Shock  Position  Time  History,  Case  4c, 
(Actual  Inflow,  47%  NSR,  wbb  -  .195,  Basic  Cebeci- 
Smith  Turbulence  Model. 
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Case  4e 


The  second  sensitivity  analysis  of  the  adverse  pressure  gradient 
modification  to  the  basic  Cebeci-Smith  eddy  viscosity  turbulence  model  was 
accomplished  by  employing  the  full  inner  region  modifications,  but  relaxing 
the  change  rate  of  the  outer  region  (Clauser)  constant  k2  from  0.015  to 

0.010.  The  solution  was  again  marched  forward  in  time  from  the  47  percent 
NSR  converged  solution,  and  again  the  core  flow  normal  shock  is  observed  to 
oscillate  periodically  from  21  percent  to  41  percent  of  the  diffuser  duct 
length  without  the  diffuser  unstarting.  Figure  92  presents  the  time  history 
of  these  computations,  and  Appendix  L  provides  the  details. 

In  this  situation,  the  inner  region  model  is  the  same  as  that  described 
for  the  overall  "stiffened"  eddy  viscosity  model  presented  in  Chapter  V. 

Only  the  outer  region  model  is  mathematically  affected  through  the  lower 
value  of  the  Clauser  constant,  k2 ,  in  equation  5-3.  Although  the  calculated 

inner  region  eddy  viscosity  remains  the  same,  the  crossover  point  for 
transition  to  the  outer  region  is  again  lowered  and  the  net  effect  is  a 
boundary  layer  more  susceptable  to  separation.  As  discussed  in  the  last 
section,  separation  region  growth  results  in  the  calculation  of  a  much 
larger  displacement  thickness  which  in  turn  drives  the  outer  region  eddy 
viscosity  to  a  higher  value.  Again,  this  interaction  between  the  inner  and 
outer  region  eddy  viscosities  results  in  a  complex  temporal  behavior  of 
separation  and  overcorrection. 
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Figure  91.  Core  Flow  Normal  Shock  Position  Time  History,  Case  4d, 
(Actual  Inflow,  47%  NSR,  wbb  -  .195,  Inner  Region 
Turbulence  Model  Variation. 


148 


6.3  COMPARISON  WITH  EXPERIMENTAL  DATA 

Comparisons  between  the  numerical  solutions  and  the  experimental  data 
can  be  made  both  qualitatively  and  quantitatively.  Figure  93  summarizes  the 
numerical  results  for  both  the  47  percent  and  60  percent  normal  shock 
recovery  cases.  The  location  of  the  normal  shock  at  the  diffuser  line  of 
symmetry  obtained  from  the  numerical  solution  falls  within  the  error  bands 
of  the  shock  positions  determined  from  the  UTRC  experimental  Schlieren 
photographs  (13).  The  Mach  contour  plots  (Figures  94  and  96  generated  from 
the  numerical  solutions  also  compare  well  qualitatively  with  the  respective 
Schlieren  photographs  (Figures  95  and  97).  Qualitative  flow  feature 
comparisons  worthy  of  note  include  location  and  size  of  the  wall  separation 
regions,  which  are  reasonably  well  reproduced  in  the  numerical  solution. 
Persistence  of  the  source  nozzle  flow  interactions  through  several 
streamwise  turnback  shocks  is  also  apparent  in  both  the  experimental 
Schlieren  photographs  and  the  Mach  contour  plots  of  the  numerical  solution. 
Table  III  summarizes  the  comparison  between  the  computed  normal  shock 
positions  and  the  UTRC  experimental  results. 

The  asymmetric  behavior  of  the  barrel  shock  in  the  UTRC  experimental 
data  is  also  to  be  noted,  suggesting  nonuniformities  in  the  source  nozzles 
and  bank  blowers.  Figure  17,  presenting  the  diffuser  entrance  flowfield 
conditions  from  the  data  of  Zumpano,  et  al .  (13),  does  imply  asymmetric 
performance  of  the  source  nozzle  and  wall  bank  blower  apparatus,  especially 
in  the  total  pressure  profile  (Pp) •  The  Schlieren  photographs  also  present 


barrel  shocks  that  are  convex  with  respect  to  the  source  flow.  The 
numerical  solution  Mach  contours,  especially  that  for  the  60  percent  NSR 
case,  present  barrel  shocks  that  are  concave  with  respect  to  the  source 
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flow.  This  may  be  attributable  to  the  application  of  the  turbulence  model 
in  the  core  flow  region,  where  the  approximation  employed  a  mixihg  length 

based  on  S  to  compute  the  eddy  viscosity.  Immediately  downstream  of  the 
barrel  shock  this  mixing  length  is  artificially  large  due  to  the  size  of  the 
separation  region  along  the  diffuser  wall. 

There  are  several  physical  aspects  of  the  experimental  apparatus  that 
are  not  reproduced  in  the  numerical  simulation.  The  computational  domain 
begins  one  grid  point  upstream  of  the  diffuser  entrance,  so  the  effect  of 
the  simulated  optical  ducts  is  neglected.  Other  small  physical  hardware 
aspects,  such  as  non-smooth  wall  junctions,  can  have  a  significant  effect  on 
the  behavior  of  the  wall  boundary  layer  flow,  and  these  are  not  reproduced 
in  the  numerical  solution. 
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Figure  92.  Core  Flow  Normal  Shock  Position  Time  History,  Case  4e , 
(Actual  Inflow,  47%  NSR,  wbb  -  .195,  Outer  Region 
Turbulence  Model  Variation. 
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TABLE  III 

COMPARISON  OF  COMPUTED  SHOCK  POSITIONS 


Exit 

Pressure 

Isentropic 

Expansion 

to 

Normal 

Shock 

Uniform  Inflow 
@  M  -  2.5 
Uniform  Wall  B.B. 
@  M  «  4.0 

Long 

Duct 

No  B.B. 

M.  -  2.5 

l 

Actual 

Inflow 

Case 

M.  -  2.50 

l 

60%  NSR 

SPOS  - 

.254 

SPOS  -  .239 

SPOS  =  .156 

SPOS  -  .194 

R/Rde  - 

1.78 

R/Rde  -  1.73 

R/Rde  -  1.48 

R/Rde  -  1.59 

47%  NSR 

SPOS  - 

.455 

SPOS  -  .407 

SPOS  -  .322 

SPOS  -  .343 

R/Rde  - 

2.40 

R/Rde  -  2.25 

R/Rde  -  1.99 

R/Rde  -  2.05 
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When  the  numerical  result  based  on  the  actual  inflow  conditions  is 
compared  with  that  obtained  from  the  ideal  inflow  conditions,  the  effects  of 
viscous  losses  due  to  the  mixing  of  the  source  nozzle  inflows  are  apparent 
for  both  numerical  cases  (60  percent  NSR  and  47  percent  NSR) .  For  the  60 
percent  normal  shock  recovery  exit  pressure  case  the  actual  inflow  numerical 
solution  obtains  the  core  flow  normal  shock  at  0.194  of  the  diffuser  length, 
while  the  ideal  inflow  numerical  solution  obtains  the  core  flow  normal  shock 
at  0.239  of  the  diffuser  length.  The  additional  viscous  losses  due  to 
viscous  dissipation  and  shear  layer  mixing  result  in  the  core  flow  normal 
shock  19  percent  farther  upstream  than  in  the  "ideal"  inflow  case.  For  the 
47  percent  normal  shock  recovery  exit  pressure  cases,  the  actual  inflow 
numerical  solution  obtains  the  core  flow  normal  shock  at  0.343  of  the 
diffuser  length,  while  that  for  the  ideal  inflow  case  occurs  at  0.407  of  the 
diffuser  length.  For  this  numerical  case  the  additional  viscous  losses  due 
to  mixing  cause  the  core  flow  normal  shock  to  occur  16  percent  farther 
upstream  than  for  the  "ideal"  case.  Both  numerical  solutions  are  also  shown 
to  be  significantly  upstream  of  the  inviscid  normal  shock  predictions  for 
the  same  inflow  Mach  number  (Table  III). 

Comparison  of  the  numerical  results  with  experimentally  obtained  wall 
pressure  data  is  accomplished  in  Figures  98  through  100.  Figure  98  presents 
the  UTRC  experimentally  obtained  wall  pressure  data  (13) .  Both  diffuser 
walls  were  instrumented  with  static  pressure  taps.  Because  of  the 
construction  of  the  test  apparatus,  one  of  the  diffuser  wall  was  designated 
as'the  fixed  side  and  the  other  was  designated  as  the  operator  side. 
Examination  of  these  plots  of  experimental  wall  pressure  data  yields  two 
interesting  observations;  first,  that  the  overshoot  behavior  of  wall 
pressure  obtained  computationally  does  occur  in  many,  but  not  all,  of  the 
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PRESSURES  ON  FIXED  SIDE  FOR  NORMAL  SHOCK  DIFFUSER  END-WALL  RADIAL  PRESSURES  ON  OPERATOR  SIDE  FOR  NORMAL-SHOCK  DIFFUSER 
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Figure  98.  Experimental  Wall  Pre 


experimental  cases;  and  second,  that  the  wall  pressure  data  obtained 
experimentally  is  inconsistent  across  the  two  diffuser  walls.  F6r  this 
reason,  both  sets  of  experimental  wall  pressure  data  are  plotted  in  Figures 
99  and  100  for  comparison  with  the  information  obtained  in  the  numerical 
experiments.  In  Figure  99,  the  wall  pressure  data  obtained  in  case  4a,  60 
percent  normal  shock  recovery  exit  pressure,  is  compared  with  the 
appropriate  wall  pressure  data  from  experiment  (from  Figure  98).  Serious 
divergence  of  the  numerically  obtained  values  is  evident  only  in  the  region 
of  the  wall  separation  caused  by  the  shock  impingement  on  the  boundary 
layer,  where  the  numerical  model  is  known  to  poorly  reproduce  the  physics  of 
the  flowfield  locally.  The  numerical  prediction  shows  good  agreement  with 
the  operator  end  wall  experimental  data  and  both  sets  of  experimental  data 
bound  the  numerical  prediction  downstream  of  the  shock.  No  static  pressure 
taps  were  located  in  the  5  to  15  percent  range  of  the  diffuser  wall  length, 
so  comparison  in  this  region  cannot  be  accurately  made. 

The  numerically  predicted  wall  pressure  behavior  for  the  47  percent 
normal  shock  recovery  exit  pressure  case  (case  4b)  is  compared  to  the 
experimental  data  in  Figure  100.  Again,  the  only  significant  divergence  is 
apparent  in  the  shock/boundary  layer  interaction  region.  The  experimental 
data  again  bounds  the  numerical  prediction.  The  numerically  obtained  wall 
pressure  distribution  is  therefore  observed  to  (1)  overpredict  the  distance 
for  shock  recovery  (i.  e.,  a  longer  mixing  region),  but  (2)  reasonably 
predicts  the  recovery  pressure  from  just  downstream  of  the  barrel  shock  to 
the  end  of  the  diffuser.  Generalized  diffuser  performance,  in  terms  of 
barrel  shock  location  and  final  recovery  pressure,  is  reasonably  reproduced 
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Figure  100.  Comparison  of  Numerical  With  Experimental  Wall 

Pressure  Data,  Case  4b  (47%  NSR ,  Actual  Inflow). 
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Higher  diffuser  performance  (recoveries  above  60  percent  NSR)  cases 
were  not  attempted.  Considerations  included  cost  of  computer  time,  as  each 
of  the  actual  flow  cases  attempted  took  over  twenty  hours  of  Cray  I 
processing  time  to  resolve  to  a  steady  state  solution.  The  60  percent 
normal  shock  recovery  backpressure  case  was  initially  selected  as  the 
baseline  validating  case  because  it  exhibited  the  critical  issues  requiring 
examination:  core  flow  dissipation  due  to  source  nozzle  mixing,  shock/wall 

boundary- layer  interactions,  and  the  behavior  of  a  separation  recirculation 
region  immediately  downstream  of  the  barrel  shock.  The  47  percent  normal 
shock  recovery  backpressure  case,  while  less  stressing  on  physical  diffuser 
performance,  is  more  stressing  on  the  computational  approach,  because  it 
provides  a  much  larger  separation/recirculation  region  and  the  attendant 
issues  which  therefore  affect  the  calculation  of  the  displacement  thickness 
and  the  outer  region  eddy  viscosity. 

The  approach  demonstrated  in  this  effort,  based  on  modification  of  the 
eddy  viscosity  turbulence  model,  has  achieved  a  reasonable  prediction  of 
diffuser  performance,  especially  barrel  shock  location.  This  is  a 
significant  improvement  over  the  results  obtained  by  previous  investigators, 
such  as  Johnson,  Horstinan,  and  Bachalo  (74),  who  reported  "the  relatively 
poor  predictions  of  shock  locations  obtained  were  due  to  the  inadequacies  in 
the  immediate  vicinity  of  the  shock  of  the  turbulence  closure  models  used." 
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6.4  EDDY  VISCOSITY  TURBULENCE  MODEL  BEHAVIOR 

Comparison  was  made  of  the  relative  behavior  of  the  adverse ' pressure 
gradient  modified  Cebeci-Smith  turbulence  model  to  the  basic,  unmodified 
Cebeci-Smith  model  for  the  four  primary  computational  cases;  60  percent 
normal  shock  recovery  exit  pressure  and  47  percent  normal  shock  recovery 
exit  pressure  for  both  the  actual  and  ideal  inflow  conditions.  These 
comparisons  are  presented  in  Figures  101  through  104  as  plots  of  the  ratio 
of  the  "modified"  eddy  viscosity  coefficients  to  the  "basic"  eddy  viscosity 
coefficients  at  various  streamwise  positions  through  the  length  of  the 
diffuser.  In  all  cases  upstream  of  the  lambda  shock  impingement  point  the 
ratio  is  unity  as  expected,  for  the  modification  employed  only  "turns  on" 
after  sensing  the  onset  of  an  adverse  pressure  gradient  along  the  diffuser 
wall.  Along  the  i  -  10  streamwise  location  (within  the  laminar  sublayer 
region)  the  modified  eddy  viscosity  coefficient  is  observed  to  first 
decrease  before  increasing  above  the  basic  eddy  viscosity  coefficient.  This 
is  attributable  to  the  implications  of  the  immediate  response  of  the  von 

Karman  constant  (kj )  and  the  Van  Driest  sublayer  thickness  parameter  (A+) , 

which  together  comprise  major  determinants  of  the  inner  region  mixing  length 
(equation  5-2).  At  the  same  distance  normal  to  the  wall,  for  the  same  flow 
physical  coefficient  of  viscosity  n ,  and  the  same  shear  stress  at  the  wall 

r  ,  the  imposition  of  the  immediate  changes  to  kj  and  A+  result  in  a 

decrease  in  the  calculated  mixing  length.  This,  coupled  with  a  probable 
decrease  in  the  tangential  velocity  parallel  to  the  wall  surface  due  to  the 
adverse  pressure  gradient,  results  initially  in  a  decrease  in  the  inner  eddy 
viscosity  coefficient. 
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Once  above  the  laminar  sublayer  and  into  the  region  where  the  outer 
region  eddy  viscosity  based  on  the  Clauser  model  is  applied,  all  four 
numerical  cases  (Figures  101  through  104)  show  the  effect  of  the  lagging 
response  (as  discussed  in  Jobe  and  Hankey's  research  (67))  to  the  imposition 
of  the  adverse  pressure  gradient.  Here  the  effect  of  the  overshoot  in  the 
computed  wall  pressure  is  also  notable,  the  behavior  of  naturally  follows 

this  higher  wall  pressure  prediction  before  relaxing  to  its'  downstream 
value.  This  behavior  is  not  observed  for  the  47  percent  NSR  actual  inflow 
case  where  the  overshoot  in  wall  pressure  is  not  numerically  obtained. 

No  correlation  of  the  values  of  ,  A+,  and  k^  with  the  intrinsic 

physical  properties  of  the  flow  has  been  achieved.  The  experimental 
research  necessary  to  obtain  such  a  correlation  is  beyond  the  scope  of  this 
effort . 
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MODIFIED/BASIC  EDDY  VISCOSITY  RATIO  60%NSR  A.F. 


6.5  INVESTIGATION  OF  NUMERICAL  ERROR 

Two  approaches  were  employed  to  evaluate  the  numerical  error  present  in 
the  computational  solutions  for  the  supersonic  diffuser.  The  first 
consisted  of  a  classic  Richardson's  extrapolation  technique  (AO),  where  the 
solution  is  acquired  by  using  more  clustered  (or  stretched)  grid  elements, 
especially  near  the  wall.  The  second  was  a  study  of  the  effect  of  numerical 
damping,  performed  by  comparing  the  artificial  viscosity  (introduced  by  the 
smoothing  terms  in  MacCormack's  algorithm)  with  the  modelled  eddy  viscosity 
/i+e .  This  approach  was  first  presented  by  Visbal  (54)  and  provides  useful 
additional  insight  into  the  nature  of  the  numerical  solutions. 

Richardson's  extrapolation  technique 

This  technique  was  first  applied  to  the  60  percent  normal  shock 
recovery  exit  pressure  ideal  inflow  solution  (case  2b) .  The  original 
exponentially  stretched  30X80  numerical  grid  was  replaced  with  a  60X80  grid 
grid,  where  the  spacing  between  the  grid  points  in  the  direction  normal  to 
the  wall  was  half  that  of  the  original  grid.  A  third  test  grid,  90X80 
points,  was  later  employed,  where  the  spacing  between  the  grid  points  normal 
to  the  wall  was  one-third  that  of  the  original  grid.  Details  of  these  grids 
are  presented  in  Appendix  M.  The  steady  converged  solution  obtained  for  the 
30X80  grid  was  mapped  onto  the  two  new  grids  and  the  numerical  solution  was 
marched  forward  in  time  by  five  additional  characteristic  times.  The 
results  for  the  ideal  inflow  cases  are  presented  in  Figures  105  and  106.  No 
change  in  the  steady  solution  core  flow  normal  shock  position  occurred.  The 
variation  in  wall  pressures  obtained  from  the  solutions  on  these  three 
different  test  grids  is  negligible,  as  seen  in  Figure  106. 

The  Richardson  technique  was  then  applied  to  the  60  percent  normal 
shock  recovery  exit  pressure  actual  inflow  solution  (case  4a).  The  original 
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70X103  grid  was  replaced  with  a  140X103  grid  where  the  spacing  between  the 
grid  points  normal  to  the  wall  was  half  that  of  the  basic  grid.  For  the 
70X103  grid,  -  0.0001  ft.  (the  spacing  for  the  first  grid  point  away 

from  the  wall;  i  -  1) .  For  the  140X103  grid,  Ax  .  -  0.00005  ft.  Details 

of  both  these  grids  are  provided  in  Appendix  M.  The  steady  converged 
solution  obtained  for  the  70X103  grid  was  mapped  onto  the  new  140X103  grid 
and  the  numerical  algorithm  was  marched  forward  in  time  by  an  additional 
five  characteristic  times  until  virtually  no  variation  in  flowfield 
conditions  was  observed.  The  results  of  this  approach  are  presented  in 
Figures  107  and  108.  Again,  as  for  the  ideal  inflow  case,  no  change  in  the 
core  flow  normal  shock  position  is  obtained.  The  denser  grid  shows  a 
slightly  higher  overshoot  in  the  wall  pressure  response  in  the  shock 
impingement  region,  shown  in  Figure  108a.  Figure  108b  presents  the  wall 
pressure  ratio  obtained  through  the  Richardson's  extrapolation.  Appendix  N 
presents  the  details  of  the  extrapolation  technique  for  selected  streamwise 
locations  in  the  physical  domain.  The  Richardson's  extrapolation  technique 
thus  shows  very  little  change  in  the  numerically  obtained  solutions  for 
these  cases  and  grid  refinements.  Therefore,  the  truncation  error  is 
demonstrated  not  to  be  attributable  to  grid  refinement.  The  problem  is  then 
contained  only  in  the  physical  description  of  turbulence  and  in  the 
numerical  smoothing  required  to  maintain  numerical  stability. 
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WALL  PR  RATIOS  60%NSR  3  TEST  GRIDS 


Figure  106.  Comparison  of  Computed  Wall  Pressure  Ratio;  3  Test 
Grids,  60%  NSR  Ideal  Inflow  Solution. 
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WALL  PR  RATIO  COMPARISON  60%NSR  ACTUAL  FLOW 


ire  108a.  Computed  Wall  Pressure  Ratio  Comparison,  60%  NSR 
Actual  Inflow  Solution,  70X103  and  140X103  Grids. 

WP  Ratio  60%NSR  Richardson's  Extrapolation 


Figure  108b.  Richardson's  Extrapolation  for  Wall  Pressure  Ratio, 
60%  NSR  Actual  Inflow  Solution,  derived  from  70X103 
and  140X103  Grid  Solutions. 
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Numerical  Error  Due  To  Dampin 


A  second  assessment  of  numerical  error  was  performed  by  comparing  the 
artificial  viscosity  (introduced  by  the  smoothing  terms  in  the  MacCormack 
algorithm  damping  scheme)  with  the  modelled  eddy  viscosity  /i+e .  One  is  able 
to  make  this  approach  because  of  the  particular  form  of  the  damping  terms 
(equation  3-34)  in  the  explicit  algorithm.  Comparison  of  the  damping  terms 
with  the  normal  diffusive  terms  in  the  streamwise  momentum  equation 
(equations  2-27  through  2-34)  yields  the  following  approximate  expression 
for  the  artificial-to-physical  viscosity  ratio  (54): 


Contours  of  the  above  ratio  are  shown  in  Figures  109a  through  112a  for  the 
actual  and  ideal  inflow  solutions  for  both  the  60  percent  and  47  percent 
normal  shock  recovery  exit  pressure  numerical  cases.  In  figures  109b 
through  112b  the  corresponding  viscosity  coefficient  ratios  are  plotted  for 
several  constant  streamwise  locations  through  the  length  of  the  diffuser. 

As  seen  in  Figure  109a,  there  is  considerable  artificial  damping 
contained  within  the  steady  solution  flowfield  for  the  60  percent  NSR  actual 
inflow  case  (case  4a)  ,  especially  in  the  nozzle  mixing  region  and  across  the 
normal  shock.  Some  additional  damping  induced  by  the  smoothing  procedure 
is  also  evident  at  the  exit  plane,  in  the  region  where  exit  pressure  is  not 
imposed  to  avoid  overspec i f ica t ion  of  the  problem.  These  artificial  damping 
contours  are,  however,  only  25  percent  of  the  physical  viscosity.  Damping 
ratios  representing  artificial  viscosities  as  much  as  an  order  of  magnitude 
greater  than  the  physical  viscosity  are  present  in  the  nozzle  mixing  region 
upstream  of  the  core  flow  normal  shock.  Comparison  of  the  damping  ratio 
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contours  for  the  actual  inflow  case  (Figure  109a)  and  the  ideal  inflow  case 
(Figure  110a)  provides  evidence  to  support  the  conclusion  that  the  majority 
of  the  artificial  damping  present  in  the  actual  inflow  solution  is  due  to 
the  algorithm's  handling  of  the  vigorous  action  of  shock  wave  formation. 

For  the  ideal  inflow  cases  (Figures  110a  and  112a) ,  the  only  evident  damping 
ratio  contours  are  in  the  region  of  the  core  flow  normal  shocks  and  the 
interaction  region  between  the  wall  energizing  bank  blower  flow  and  the  core 
flow.  A  similar  assessment  results  from  the  comparison  of  the  viscosity 
error  ratio  contours  for  the  actual  and  ideal  inflow  solutions  for  the  47 
percent  normal  shock  recovery  exit  pressure  cases.  Although  the  grid 
spacing  in  the  mixing  region  for  the  actual  inflow  cases  was  relatively 
close  in  the  flow  direction,  it  was  somewhat  coarser  in  the  direction  normal 
to  the  flow.  The  flowfield  contravariant  velocities  are  large  in  this 
mixing  region,  as  is  the  second  derivative  of  the  pressure  (effect  of  the 
turnback  shocks).  These  effects  result  in  relatively  high  numerical  damping 
ratios;  however,  without  this  large  imposed  artificial  damping,  the 
numerical  algorithm  may  not  be  able  to  successfully  handle  the  gross 
variations  of  the  highly  complex  flowfield  present  in  the  actual  inflow 
cases . 
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DAMPING  RATIO  CONTOURS  60%NSR  A.F 
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Figure  109a.  Damping  Ratio  Contours,  60%  NSR  Actual  Inflow 
Numerical  Solution. 
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Figure  109b.  Damping  Ratios,  60%  NSR  Actual  Inflow  Numerical 
Solution . 
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DAMPING  RATIO 


Figure  111a.  Damping  Ratio  Contours,  47%  NSR  Actual  Inflow 
Numerical  Solution. 
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Figure  111b.  Damping  Ratios,  47%  NSR  Actual  Inflow  Numerical 
Solution . 
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Figure  112a.  Damping  Ratio  Contours,  47%  NSR  Ideal  Inflow 
Numerical  Solution. 
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Figure  112b.  Damping  Ratios,  47%  NSR  Ideal  Inflow  Numerical 
Solution. 
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CHAPTER  VII 


CONCLUSIONS  AND  RECOMMENDATIONS 


CONCLUSIONS 

A  numerical  method  of  obtaining  solutions  to  the  Navier-Stokes 
equations  for  supersonic  axisymmetric  diffusers  has  been  developed  from  a 
selection  of  appropriate  techniques.  Based  on  the  numerical  analysis  and 
computational  results  obtained  through  this  study,  the  following  conclusions 
are  drawn: 

1.  The  present  effort  is  the  first  full  Navier-Stokes  solution  that  has 
accurately  simulated  the  viscous- inviscid  interactions  present  in  a 
supersonic  axisymmetric  diffuser.  Numerous  previous  attempts  required 
artificial  and  arbitrary  numerical  control  of  the  wall  boundary  layers 
to  achieve  convergence. 

2.  The  numerical  solution  of  the  Navier-Stokes  equations  applied  to 
supersonic  vaneless  axisymmetric  diffusers  requires  modification  to  the 
basic  Cebeci -Smith  two-layer  algebraic  eddy  viscosity  turbulence  model 
to  properly  accommodate  the  physics  of  flows  with  strong  adverse 
pressure  gradients.  When  properly  modified  to  stiffen  the  turbulence 
model,  the  numerical  solution  successfully  reproduced  all  of  the 
essential  flow  features  including  boundary  layers,  location  and  size  of 
wall  separation  regions,  location  of  the  core  flow  normal  shock,  and  the 
persistence  of  source  nozzle  flow  interactions  through  several 
streamwise  turnback  shocks.  Comparison  with  experimentally  obtained 
wall  pressure  data  is  acceptable;  the  only  notable  discrepancy  occurs 
in  the  lambda  shock  impingement  region  where  the  numerical  solution 
fails  to  accurately  reproduce  the  intrinsic  physics  of  the  flowfield. 
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Although  the  numerical  compatibility  of  zero-equation  algebraic  eddy 
viscosity  models  is  high  (59),  their  deficiency  in  length  scale 
determination  in  the  presence  of  large  separation/recirculation  zones 
leads  to  a  great  reduction  in  their  general  applicability  and 
simplicity.  This  weakness  is  the  underlying  cause  of  discrepancies  in 
predicted  wall  pressures  and  recovery  distances  in  the  shock 
impingement/recirculation  region . 

3.  The  required  modifications  to  the  basic  Cebeci-Smith  two-layer  algebraic 
eddy  viscosity  turbulence  model  are  extremely  sensitive  to  the  von 
Karman  universal  mixing  length  constant  (kj),  the  sublayer  thickness 
parameter  (A+) ,  the  Clauser  outer  region  constant  (k2),  and  the 
downstream  location  in  the  diffuser  duct  at  which  these  modifications 
are  implemented.  The  sudden  short  wall  pressure  rise  experienced  as  the 
flow  first  encounters  the  diffuser  walls  must  be  accommodated  carefully 
to  allow  proper  representation  of  the  ensuing  flow  acceleration  into  the 
diffuser  before  the  true  macroscopic  effects  of  the  adverse  pressure 
gradient  are  imposed,  otherwise  the  numerical  procedure  will  proceed 
towards  a  physically  unrealistic  condition. 

9  Diffuser  performance  is  constrained  by  the  requirement  for  wall  boundary 
layer  energization  if  the  design  requires  a  relatively  short  duct.  The 
numerical  computations  confirmed  Neumann  and  Lustwerk's  experimental 
conclusions  regarding  minimum  diffuser  duct  length  required  if  no  wall 
boundary  layer  energization  is  employed.  In  practical  applications  the 
weight  penalty  for  extremely  long  diffuser  ducts  outweighs  the 
inefficiency  of  having  to  add  wall  bank  blowers  at  a  significant  mass 
fraction  of  the  core  flow  in  order  to  control  the  wall  boundary  layer 
separation  region. 
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A  significant  percentage  of  the  viscous  losses  experienced  in  supersonic 
diffuser  performance  are  caused  by  the  source  flow  nozzles.  Comparison 
of  the  uniform  inflow,  20  percent  bank  blower,  60  percent  normal  shock 
recovery  numerical  solution  to  that  for  the  actual  inflow  case  at  the 
same  exit  backpressure  reveals  a  19  percent  loss  in  shock  recovery 
distance  due  to  wall  interactions  and  shear  layer  mixing.  For  the 
uniform  inflow  case,  the  core  flow  normal  shock  stabilized  at  a  position 
24  percent  of  the  duct  length  from  the  diffuser  entrance.  For  the 
actual  inflow  case,  the  core  flow  normal  shock  stabilized  at  a  position 
19  percent  of  the  duct  length  from  the  diffuser  entrance.  The  closer 
the  shock  gets  to  the  diffuser  entrance  for  a  given  backpressure,  the 
less  stable  the  diffuser  operation,  and  the  closer  the  flow  is  to  an 
unstart  situation.  A  loss  of  6  percent  of  absolute  diffuser  duct  length 
in  normal  shock  position,  against  an  "ideal  inflow"  condition  for  normal 
shock  location  of  24  percent  of  diffuser  duct  length,  represents  a  loss 
of  approximately  19  percent  in  shock  recovery  distance  due  to  source 
nozzle  mixing  losses. 

Boundary  conditions  must  be  carefully  formulated  and  implemented  in 
order  to  prevent  physically  unrealistic  results  or  numerical  divergence 
of  the  solution.  The  downstream  boundary  is  extremely  sensitive  to 
proper  application  of  the  zero  gradient  condition  across  the  core  flow 
region.  It  was  found  that  the  exit  conservative  flow  variables  must 
first  be  set  using  a  first-order,  zero  gradient  condition.  The  exit 
pressure  is  then  imposed  for  all  points  across  the  outflow  boundary 
outside  the  boundary  layer.  This  was  done  by  deriving  u,  v,  and  T  from 
the  conservative  variables,  and  then  using  the  imposed  exit  pressure  to 
calculate  new  values  of  the  conservative  variables  for  the  next 


iteiaLion  of  the  numerical  solution.  Implementation  of  the  exit 
pressure  in  this  manner  across  too  few  points  at  the  downstream  boundary 
caused  the  algorithm  to  march  towards  physically  unrealistic  results  as 
did  application  of  the  exit  pressure  within  the  boundary  layer,  which 
resulted  in  an  overspecified  problem. 

7.  The  final  steady  state  solutions  were  found  to  be  insensitive  to  the 

initial  conditions  applied  over  the  computational  domain.  However,  the 
time  to  converge  to  the  final  solution  was  highly  dependent  on  the 
application  of  specific  initial  conditions. 

Recommendations 

Based  on  the  numerical  analysis  and  results  obtained  through 

this  study,  the  following  recommendations  are  made: 

1.  The  present  numerical  solver  should  be  modified  to  include  the  effects 
of  a  calorically  imperfect  gas  with  variable  specific  heat  and  thermal 
conductivity.  This  modification  would  allow  accurate  simulation  of 
temperature  dependent  effects  for  hot  source  flow  nozzles  and  the 
attendant  heat  release  in  the  laser  cavity  and  diffuser  expected  in  true 
laser  operation. 

2.  After  implementation  of  the  previous  recommendation  for  a  single 
species,  it  would  be  desirable  to  incorporate  the  effects  of  species 
mixing  into  the  numerical  solver.  Many  practical  cases  of  interest  in 
the  evaluation  of  laser  diffuser  performance  involve  gas  flow  with 

.  different  species  due  to  incomplete  combustion  in  the  gain  generator 
between  the  fuel  and  oxidizer,  the  injection  of  diluents  to  decrease  the 
rate  of  collisional  deactivation  of  the  excited  lasing  media  and  thus 
stretch  the  lasing  region,  and  the  use  of  inert  gases  such  as  helium  for 
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the  wall  bank  blower  energizers.  This  modification  would  require  a 
significant  code  revision,  since  the  equation  of  mass  diffusion  would  be 
required,  as  would  the  correct  modeling  of  appropriate  mass  diffusion 
coefficients . 

3.  Correlation  of  the  values  of  the  eddy  viscosity  model  constants  k5  ,  A+ , 
and  k2  with  the  intrinsic  physical  properties  of  turbulent  flow  should 
be  studied  in  detail  through  experimental  research. 
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APPENDIX  A 


VECTORIZED  NAVIER- STOKES  COMPUTER  CODE 
WITH  ADVERSE  PRESSURE  GRADIENT  MODIFIED  EDDY  VISCOSITY  TURBULENCE  MODEL 


1.  PROGRAM  MAIN  ( INPUT, OUTPUT, TAPE5*INPUT,TAPE6=0UTPUT, 

1  TAPE1.TAPE2, TAPES, TAPE4.TAPE7) 

2.  COMMON  /  /  PW,DETA,DZETA,CV,RC, PR, PRT, GAMMA, EP(70, 103,1), 

1  GAMM1,CFL,BETA,U1NF,RH01NF,CINF,TINF,TW,DT,CX,CY,CZ,L, 

2  IL,JL,KL,ILM,JLM,KLM,ILE,LS, ISMTHX, ISMTHY, ISMTHZ, 

3  FLOWF , WN, WFBB , WT, OMEGAC 70, 103) 

5.  COMMON  /DEPP/  RH0P( 7 0 , 1 03, 1 ) , RH0UPC70, 103, 1 ) , RH0VP170, 103, 1 ) , 

1  RHOWPt 1,1,1),RHOEP(70, 103,1) 

4.  COMMON  /DEP/  RH0C70, 103, 1),RH0UC70, 103, 1),RHOV(70, 103,1), 

1  RH0WC1,1,1),RH0E(70, 103,1) 

5.  COMMON  /DOF/  X( 7 0 , 1 03 , 1 ) , Y( 7 0 , 1 03, 1 ) , Z( 1 , 1 , 1 ) 

6.  COMMON  /TV/  ETX( 7 0 , 1 03 , 1 ) , ETY( 7 0 , 1 03, 1 ) , ETZ( 1 , 1 , 1 ) , 

1  ZTX(70,103,1),ZTY(70,103,1),ZTZ( 1,1,1) 

C 

C  CONSTANTS  AND  PARAMETER  FOR  AIR 
C 

7.  CV=4290 . 

B.  RC=17 18  . 

9.  GAMMA=1 . 4 

10.  GAMM1 =GAMMA-1 . 0 

11.  PR  =  0 .73 

12.  PRT=0 . 90 

13.  RCV=1 . 0/CV 
C 

14.  100  F0RMATC7F10.4) 

15.  110  FORMAT (1015) 

16.  995  FORMAT C *  TCH=X, E15 . 7/ ) 

17.  500  FORMAT < x  FREESTREAM  MACH  NO . =x , FI  0 . 4 , x  REYNOLDS  N0.«X,E15.7, 

1  X  SURFACE  TEMP .(RANKIN)=»,F10.4,«  REFERENCE  LENGTHS, F10. 4/) 

18.  505  FORMAT ( x  MASS  FLOW  RATE  (WN)  =  *,F6.3,x  (KG/SEC)  WBB/WN  =  X, 

1  F7.4,x  PPI(PSF)=  X.F10.4/) 

19.  510  FORMAT (XRH0INF=x,E15.7,x  UINF=x,FlO .4,X  CINF=X,F10.4,X  TINF=x, 

1  F8 . 3 , x  PINF=x, F8 . 3, *  RMUINF=x,E15.7/) 

20.  520  FORMAT ( X  PEXIT ( PSF )  =  x, FI  0 . 4 , X  DETA  =  * , F10 . 4 , *  DZETA=X,F10 .4, 

1  x  XL  =  * »  FI  0 . 4 ,  x  YL=X,F10.4/) 

21.  530  FORMAT ( x  CFL=x,F8.4,X  CX=x,F8.4,X  CY=X,F8.4,X  CZ«X,F8.4, 

1  *BETA=X, F10 . 4/ ) 

22.  540  FORMAT ( x  LS=x,I5,X  JFM=X,I5,X  KFM=X,I5,X  ISHK=X,I5,X  JSHK=X, 

1  15, x  K5HK=X, 15/) 

23.  550  FORMAT ( x  NEND*x,I5,X  IL=X,I5,x  JL=x,I5,X  XL*X,I5/) 

24.  580  FORMAT (x  N=X,I5,X  DTCFL=*,E15.7,X  TMS2=X, E15 .7 , X  TMS1=X,E15.7, 

1  x  TMS2/TCH=x,E15.7,x  TCH=x,E15.7) 

25.  590  FORMAT(/,X  J  K  Y  X  M  RHO 

1  U  V  OMEGA  T  P  EPX/) 

26.  600  F0RMAT(1X,2I3,11E11.4) 

27.  610  FORMATC6E11 . 4) 

28.  630  FORMAT (I3,4F10.4) 

29.  650  FORMAT ( 5E1 1 . 4 ) 

C  KXXKXXXXXXXXKKXXXXXXXX 

C  READ  IN  THE  INPUT  DATA 

c  XXXXXXXXXXXXXXXXXXXXXX 

30.  READ(5, 100)  XM, PINF, TW, RL ,PW, PPI 

31.  READC5.100)  WN,WFBB,WFJ 

32.  READC  5,100)  CX, CY, CZ , CFL , BETA 

33.  READC  5 , 1 1 0 )  ISTART, ILE, IG 

34.  READ(5,110)  IS, JFM.KFM, ISHK, JSHK.KSHK 

35.  READC5, 110)  NEND, I L , JL , XL , ISMTHX, ISMTHY, ISMTHZ 
C 

C  GENERATING  THE  MEAN  FREESTREAM  INFORMATION 
C 

36.  XL=0. 21669996 

37.  YL=0. 61479659 

38.  YDE=0 . 20 

39.  TINF=TW*(1 ./(l . +GAMM1 XXMXX2/2 . ) ) 

40.  CINF=SQRT(GAMMAXRCXTINF) 

41.  U1NF=C1NFXXM 

42.  PI =4 . XATANC 1 . ) 

43.  AI=0.8*PIX(XL-.013) 

44.  RMUINF=2.27E-08KSQRTCTINFXX3)/(TINF-H98.6) 

45.  WF=6 .8521E-02XWN 
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71 

46. 

72 

47. 

73 

48. 

74 

49. 

75 

50. 

76 

51. 

77 

78 

52. 

79 

53. 

80 

54. 

81 

55. 

82 

56. 

83 

84 

85 

86 

57. 

87 

58. 

88 

59. 

89 

60. 

90 

61. 

91 

62. 

92 

63. 

93 

64. 

94 

95 

65. 

96 

66. 

97 

67. 

98 

99 

100 

101 

68. 

102 

103 

104 

105 

106 

107 

69. 

108 

109 

110 

70. 

111 

71. 

112 

113 

114 

72. 

115 

73. 

116 

74. 

117 

75. 

118 

76. 

119 

77. 

120 

78. 

121 

79. 

122 

123 

124 

125 

80. 

126 

81 . 

127 

82. 

128 

83. 

129 

84. 

130 

85. 

131 

86. 

132 

87. 

133 

134 

88. 

135 

89. 

136 

137 

90. 

138 

139 

91. 

140 

141 

142 

92. 

143 

93. 

144 

145 

146 

147 

94. 

148 

149 

95. 

150 

HBB=WFBBXHF 
WT=WBB+WF 
RUINF=WF/AI 
RHOINF=RUINF/UINF 
REY=RUINFXRL/RMUINF 
BETA=0. 0 
C 

1LM=IL-1 
JLM= JL-1 
KLM=KL-1 
DETA=1./JLM 
DZETA=1./KLM 
C 

C  WRITE  OUT  THE  INPUT  AND  FLOW  FIELD  INFORMATION 
C 

WRITEt6,500)  XM, REY,TW,RL 
WRITEt6,505)WN,WFBB,PPI 

WRITEt  6 ,510)  RHOINF, UINF,CINF,TINF,PINF,RMUINF 

WRITEt  6 , 520  )  PW, DETA, DZETA,XL,YL 

WRITEt  6 , 530 )  CFL,CX,CY,CZ 

WRITEt 6, 540)  LS, JFM, ICFM, ISHK, JSHK.KSHK 

WRITEt 6 , 550)  NEND, IL, JL , KL 

RLS=FLOATtLS) 

C 

NI  =  1 

TMS1 =0 . 0 
TMS2=0 . 0 
C 

C  READ  IN  THE  GRID  POINTS  IN  CARTESIAN  FRAME 
C  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

Ztl,l,l)=0.0 

C  INITIALIZATION  OF  ALL  DEPENDENT  VARIABLES 

C  XXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXKXXXXXXXX 

c 

C  READ  IN  THE  RESTART  DATA  FROM  PREVIOUS  RUNS 

c  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

IFtlSTART.NE.O)  READtl)  NI,TMS1,TMS2,RH0,RHDU,RH0V,RH0W,RH0E, 
1  EP 

c 

RH0t70,l,l)=l .84 IE- 04 
RH0Vt70, I, 1)=0. 319045 

C  SET  FLOW  FIELD  PREDICTOR  STEP  VALUES 

C 

DO  25  J=1,JL 
DO  25  K=1,KL 
RHOPtK,J,l)=RHOtK,  J,l) 

RHOUPfK, J, l)=RHOUtK, J,l) 

RHOVPtK,J,l)=RHOVtK,J,l) 

RHOEPtK, J,1)=RH0EIK,J,1) 

25  CONTINUE 

RHOWP  tl,l,l)  =  0.0 
C 

C  COMPUTE  CHARACTERISTIC  TIME  AT  CENTERLINE 

C 

TCH=0 . 0 

DO  800  J=2,JL 

RHJ=1.0/RHOtKL,J,l) 

RHJM=1 .O/RHOtKL, J-1,1) 

VJ=RHOVtKL,J,l)XRHJ 
VJM=RHOV(KL, J-1,1 )XRHJM 

TCH=TCH+2 .OXtYtKL,J,l)-Y(KL, J-1,1) )/(VJ+VJM) 

800  CONTINUE 
C 

30  CALL  TRANS 
CALL  TMSTEP 
C 

DO  1  N=NI , NEND 
C 

IFttN/'10)«10.NE.N)  GO  TO  5 

C  DETERMINE  THE  ALLOWABLE  TIME  STEP  SIZE  (DT  CFL) 

C  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

CALL  TMSTEP 
CALL  EDDY 
C 

C  CONTROL  THE  DATA  FLOW  AND  DIFFERENCE  OPERATORS 

C  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

5  CALL  PAGE 

C 

TMS2=TMS1*DT 

C  COMPUTE  CHARACTERISTIC  TIME  AT  CENTERLINE 
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151 

C 

152 

155 

154 

C 

r 

RECOMPUTE  TCH  ONLY  EVERY  100  ITERATIONS 

96. 

IF((N/100)X100.NE.N)  00  TO  950 

155 

97. 

TCH«0 . 0 

156 

98. 

DO  900  J*2,JL 

157 

99. 

RHJ  =  1 .  O/RHOCKL, J,l) 

158 

100. 

RHJM=1. O/RHOCKL, J-l,t> 

159 

101. 

VJ*RH0VCKL,J,1)*RHJ 

160 

102. 

VJM=RH0V(KL,J-1,1)XRHJM 

161 

105. 

I£H*TCH+2 .0X(Y(KL,J, 1 )-Y(KL » J-l ,  1 ) )/( VJ+VJM)  ' 

162 

104.  900 

CONTINUE 

165 

105. 

T=TMS2/TCH 

164 

106. 

WRITE(6,580)  N,DT,TMS2,TMS1,T,TCH 

165 

107.  950 

CONTINUE 

-  166 

108. 

TMS1*TMS2 

.  167 

C 

168 

C 

169 

109.  1 

CONTINUE 

170 

C 

171 

110. 

WRITEC6 ,495)  TCH 

172 

C 

WRITE  THE  RESTART  DATA  INTO  RESTART  TAPE 

175 

C 

XXXXKKXXXXXXKXXXXXXXXKKXXXXKKXXXXKXXKXKXX 

174 

111. 

NEND=NEND+1 

175 

112. 

WRITEC2)  NEND,TMS1,TMS2,RHO,RHOU,RHOV,RHOW,RHOE,X,Y,Z,EP 

176 

C 

177 

C 

KXXXXXXXXXXXXXXKKXXXXKXKKKXXKKXX 

178 

C 

WRITE  OUT  THE  COMPUTED  FLOW  DATA 

179 

C 

KKKXXXXXKXKXXXXXXXXXXXKKKXXKKXKX 

180 

C 

GENERATING  THE  GRAPHICAL  DATA  FILE  ON  TAPE4 

181 

C 

182 

115. 

XC=-0 .250 

185 

114. 

WRITEC4.610)  Y(1,1,1),X( 1,1,1) 

184 

115. 

WRITE(4,610)  Y(1,JL,1),X(1,JL,1) 

185 

116. 

WRITE(4,610)  YC1,JL,1),XC 

186 

117. 

HRITE(4,610)  Y(1 , 1 , 1 ) , XC 

187 

118. 

1=1 

188 

C 

189 

119. 

DO  20  J=1,JL 

190 

120. 

WRITEC6.590) 

191 

121. 

DO  20  K=1,KL 

192 

C 

195 

122. 

RH=1 . O/RHOCK, J,  1) 

194 

125. 

U=RHOU(K, J,1)KRH 

195 

124. 

UP=U/UINF 

196 

125. 

V=RH0V(K,J,1)XRH 

197 

126. 

VP=V/UINF 

198 

127. 

W=UXRUINF 

199 

128. 

T=(RH0E(K,J, 1 )xRH-0 . 5*(U**2+V**2) )KRCV 

200 

129. 

P=RH0(K, J,1)*RCKT 

201 

150. 

XM=SQRT ( ( Uxx2+V**2)/ (GAMMAXRCKT) ) 

202 

C 

205 

151. 

WRITE(6,600)  J,X,Y(K,J,1),X(K,J,1),XM,RH0CK,J,1), 

204 

1  U, V, OMEGA( K, J ),T,P,EP(K,J,1) 

205 

152. 

WRITEC4,610)  YCK,J,1),X(IC,J,1).UP,VP,XM,P 

206 

C 

207 

155.  20 

CONTINUE 

208 

C 

209 

C 

COMPUTE  RATIO  OF  LOCAL  WALL  STATIC  PRESSURE 

210 

C 

TO  INLET  PITOT  PRESSURE 

211 

C 

212 

154. 

WRITE<6,625) 

215 

155.  625 

FORMATS,*  J  Y/YLT  PN/PPI  PCL/PPI  TCL/TOX/) 

214 

156. 

DO  40  J=2,JL 

215 

157. 

YR=(YC 1 , J» 1 )-YC 1 ,2, 1 ))/YL 

216 

158. 

YRD=( Y( 1 , J, 1 ) )/YDE 

217 

159. 

PE=RH0E(1, J,1)XRCXRCV/PPI 

218 

140. 

RH=1 . 0/RHO(KL,J,1) 

219 

141. 

V=RH0V(KL,J,1)XRH 

220 

142. 

TCt=(RHOE(KL, J,1)XRH-0.5*VXX2)XRCV 

221 

145. 

TRT=TCL/TW 

222 

144. 

PCL=RH0(KL , J, 1 )KRC*TCL/PPI 

"  225 

145. 

WRITE(6»650)J,YR,PE,PCL,TRT 

224 

146. 

WR1TE(7,650)YR,YRD,PE,PCL,TRT 

225 

147.  40 

CONTINUE 

226 

148. 

STOP 

227 

149. 

END 

HAIN. 

VECTOR  LOOP  BEGINS  AT  SEQ.  NO.  75,  P«  1005B 

MAIN. 

VECTOR  LOOP  BEGINS  AT  SEQ.  NO.  81,  P«  1040C 

MAIN. 

VECTOR  LOOP  BEGINS  AT  SEQ.  NO.  98,  P«  1155D 
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228 

1. 

229 

2. 

230 

231 

232 

235 

3. 

254 

235 

4. 

236 

5. 

237 

C 

238 

C 

239 

C 

240 

6. 

241 

7. 

242 

8. 

243 

9. 

244 

10. 

245 

C 

246 

11. 

247 

12. 

248 

C 

249 

15. 

250 

14. 

251 

15. 

252 

16. 

253 

C 

254 

17. 

255 

18. 

256 

C 

257 

258 

259 

19. 

260 

C 

261 

20.  2 

262 

C 

263 

C 

264 

C 

265 

21. 

266 

22. 

267 

23. 

268 

24. 

269 

25.  3 

27  0 

C 

271 

C 

272 

26. 

273 

C 

274 

27.  1 

275 

C 

276 

C 

277 

28. 

278 

C 

279 

29. 

280 

TMSTEP 

30. 

SUBROUTINE  TMSTEP 

COMMON  /  /  PW,DETA,DZETA,CV,RC, PR, PRT, GAMMA, EPC70. 103,1), 

1  GAMM1, CFL, BETA, UINF,RHOINF,CINF,TINF,TW,DT,CX,CY,CZ,L, 

2  IL,Jl,ICL,ILM, JLM, KLM, ILE, LS, ISMTHX, ISMTHY, ISMTHZ 
COMMON  /TV/  ETX(70,103,1),ETY(70,103,1),ETZC1,1,1), 

1  ZTX(70,103,1),ZTY(70,103,1),ZTZ( 1,1,1) 

COMMON  /DEP/  RHOC70, 103, 1),RH0U(70, 103, 1),RH0VC70, 103,1), 
1  RH0WC1,1,1),RH0E(70, 103,1) 

DIMENSION  UET(70) >UZT(70) ,DTC(70),U(70),V(70) ,C(70) 

SET  UP  INITIAL  CFL  TIME  STEP  VALUE 

DTCCD-1.0 
GAMM2=GAMMA*GAMM1 
DTCFL'l . 0 
RDET*1 .O/DETA 
ROZT =1 . 0/DZETA 

DO  1  J*2» JLM 
DO  2  KC2,KLM 

RN  =  1 . O/RHOCK, J, 1) 

UCIO=RHOUCK,J,1)*RH 
V(K)=RHOV(K, J,1)*RH 

C(K)  =  SQRT(GAMMZ*<RHOECIC,J,1)KRH-0.5«(UCK)**2+V(IO**2))) 

UET(K)SETX(K, J,1)*U(K)+ETY(K, J,1)*V(K) 
UZTCK)=ZTX(K,J,1)*U(X)+ZTY(X,J,1)KV(IC) 

DTC<K)=1.0/(ABS(UETCK))xRDET+ABS(UZT(IC))*RDZT* 

1  C(K)*SQRTUETXO(,  J,1)*RDET+ZTX(K,J,1)*RDZT)**2* 

2  (ETY(K*  J>  1  )*RDET+ZTY(IC,  J,  1  )*RDZT)x*2)) 


CONTINUE 

PERFORM  THE  COMPARISON  AND  MODIFIED  THE  CFL  TIME  STEP 

DTMIN=DTC( 1 ) 

DO  3  X=2,KLM 
KM1=K-1 

DTMIN=AMIN1(DTC(K),DTMIN) 

CONTINUE 

COMPARING  DTMIN  BETWEEN  ADJACENT  PLANES 
DTCFL-AMIN1(DTCFL,DTMIN) 

CONTINUE 

ADJUST  DTCFL  FOR  VISCOUS  EFFECT  (TRAIL  AND  ERROR) 
DT=CFL*DTCFL 

RETURN 
END 

VECTOR  LOOP  BEGINS  AT  SEQ.  NO.  12,  P« 
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281 

1. 

282 

2. 

283 

284 

285 

3. 

288 

4. 

287 

288 

5. 

289 

290 

6. 

291 

292 

293 

7. 

294 

8. 

295 

9. 

296 

10. 

297 

11. 

298 

299 

12. 

500 

301 

302 

503 

304 

305 

506 

307 

308 

13. 

309 

14. 

310 

15. 

311 

16. 

312 

17. 

313 

314 

18. 

315 

19. 

316 

317 

318 

319 

20. 

320 

21. 

321 

22. 

322 

23. 

323 

24. 

324 

25. 

325 

326 

327 

328 

26. 

329 

27. 

330 

28. 

331 

29. 

332 

30. 

333 

31. 

334 

32. 

335 

33. 

336 

34. 

337 

35. 

338 

339 

340 

341 

36. 

342 

37. 

343 

38. 

344 

39. 

345 

40. 

346 

41. 

347 

348 

349 

42. 

350 

351 

352 

353 

354 

355 

356 

357 

358 

43. 

359 

44. 

36  0 

45. 

SUBROUTINE  BC 

COMMON  /  /  PH, DETA,DZETA,CV,RC, PR, PRT, GAMMA, EP(7Q, 103,1), 

1  GAMM1,CFL,BETA,UINF,RH0INF,CINF,TINF,TW,DT,CX,CY,CZ,L, 

2  IL,JL,KL,ILM,JLM,KLM,ILE,LS, ISMTHX, ISMTHY, ISMTHZ 
COMMON  /DOF/  XC70 , 103, 1 ) ,Y(70 , 103, 1 ) ,Z( 1, 1 , 1) 

COMMON  /TV/  ETXC70, 103,1), ETYC70, 103,1), ETZ( 1, 1, 1), 

1  ZTXC70, 103,1 ) ,ZTY(7  0, 103,1),ZTZ(1,1,1) 

COMMON  /DEP/  RHO(70, 103, 1),RH0U(70, 103, 1),RHOVC70, 103,1), 

1  RHOW(1,1,1),RHOE(70, 103,1) 

COMMON  /DEPP/  RH0PC70,  103, 1),RH0UP(70, 103, 1),RH0VP(70, 103,1), 
1  RH0WP(1,1,1),RH0EP(70, 103,1) 

C 

RUINF=RHOINFXUINF 
REINF=RHOINFX(CVXTINF+0 . 5KUINFXX2) 

KLM4=KL-4 

KLM2=KL-2 

KLM3=KL-3 

C 

IFCL.EQ.2)  GO  TO  10 
C 

C  XXXXXXXXXXXXXXX 

C  PREDICTOR  SWEEP 

C  XXXXXXXXXKKKXXX 


c 

C  ON  THE  SOLID  CONTOUR,  NO-SLIP  FOR  U,V,W, CONSTANT  SURFACE  TEMP. 
C  AND  DP/DN=0.  APPROXIMATION 
C 

DO  1  J=2, JLM 
RH=1 . 0/RH0P( 2,  J , 1 ) 

RHOUP( 1 , J , 1  )  =  0 . 0 
RHOVPC1, J,1)=0.0 

RHOP( 1 , J, 1 ) =RH0P(2,  J, 1 )*( RH0EPI2, J, 1 )XRH-0 . 5X 
1  URH0UP(2, J, 1)XRH)XX2+(RH0VP(2, J,1)XRH)XX2))/(CV*TW) 
RHOEP(l,J,l ) =RHOP( 1, J, 1 )«CVXTW 
1  CONTINUE 

C 

C  DOWNSTREAM  BOUNDARY  CONDITION 

C 

DO  2  K=1 , KL 

RHOP(K,JL,l )=RHOP(K, JLM, 1 ) 

RHOUP( K, JL , 1 ) =RHOUP(K, JLM, 1 ) 

RHOVP(K,JL, 1 )=RH0VP( X, JLM,1)KY(K,JLM,1 )/Y(K, JL , 1) 

RHOEPC  K, JL , 1 )=RHOEP( K, JLM, 1 ) 

2  CONTINUE 
C 

C  SET  OUTFLOW  PRESSURE 

C 

DO  20  K=35»  KLM 
RH=1 .O/RHOPLK, JL,1) 

U=RH0UP(K, JL,1)XRH 
V=RH0VP(K,JL,1)*RH 

T=(RHOEP(K,JL,1)XRH-0.5*(UX*2+VXX2))/CV 
RHOPCK, JL,1)=PW/(RCXT) 

RH0UP(K,JL,1)=RH0P(K,JL,1)*U 
RHOVPCK, JL,1)=RH0P(K, JL,1)XV 

RHOEPCK, JL,1)=RH0P(K, JL,1)X(CVXT+0.5X(UXX2+VXX2)) 

20  CONTINUE 
C 

C  THE  SYMMETRY  BOUNDARY  CONDITIONS 
C 

DO  3  J=2, JL 

RHOP  ( KL , J , 1 ) =RHOP  (KLM,J,1) 

RHOUPCKL, J,1)=0.0 
RHOVPLKL, J,1)=RH0VP(KLM,J,1) 

RHOEPtKL, J,1)=RH0EP(KLM, J,l) 

3  CONTINUE 

C 

c 

GO  TO  100 
C 

C  XXXXXXXXXXXXXKX 

C  CORRECTOR  SWEEP 

C  XXXXXXXXXXXXXKX 

c 

C  ON  THE  SOLID  CONTOUR,  NO-SLIP  FOR  U,V,W,  CONSTANT  SURFACE  TEMP. 
C  AND  DP/DN=0.  APPROXIMATION 

C 

10  DO  11  J  =  2>  JLM 

RH=1 . 0/RHO( 2, J , 1 ) 

RHOU( 1 , J , 1 )  =  0 . 0 


192 


361 

46. 

RHOVC1,J,1)=0.0 

362 

47. 

RH0C1,J,1>*RH0C2,J,1>X(RH0EC2,J,1)XRH-0.5X 

363 

1  (CRH0UC2, J,l)xRH)xx2+CRH0VC2, J,1)*RH)**2))/(CV*TW) 

364 

48. 

RHOEQ , J,1)=RH0(1, J,1)*CV*TH 

365 

49. 

11 

CONTINUE 

366 

C 

367 

c 

DOWNSTREAM  BOUNDARY  CONDITIONS 

368 

c 

369 

50. 

DO  13  K-1,KL 

370 

51. 

RHO( K, JL ,  1 )  =RH0(  K.  JLM, 1 ) 

371 

52. 

RH0UCK,JL,1)=RH0UCIC, JLM,1) 

372 

53. 

RHOVOC, JL,l)  =  kHOV(IC, JLM,l)xYCIC,JLM,l>/YOC,JL,l> 

373 

54. 

RHOEOC, JL,1)=RH0ECIC,JLM,1) 

374 

55. 

13 

CONTINUE 

375 

C 

376 

C 

SET  OUTFLOW  PRESSURE 

377 

C 

378 

56. 

DO  21  K=35,  ICLM 

379 

57. 

RH=1.0/RHO(IC,JL,1> 

380 

58. 

U=RHOUOC,JL,1)XRH 

381 

59. 

V  =  RHOVCIC,JL,l)XRH 

382 

60. 

T=C RHOEOC, JL,1)*RH-0.5*(U**2+V**2))/CV 

383 

61. 

RHOC  1C,  JL , 1 )=PW/(RC»T ) 

384 

62. 

RHOUC  1C,  JL , 1 ) =RH0( 1C,  JL,  1  )XU 

385 

63. 

RHOVOC, JL,1)=RH0CK, JL,1)*V 

386 

64. 

RHOEOC, JL,1)=RHOOC,JL,1)X(CV*T+0.5XCU*X2+VX*2)) 

387 

65. 

21 

CONTINUE 

388 

C 

389 

C 

SET  SYMMETRY  BOUNDARY  CONDITIONS 

390 

66. 

DO  14  J=2,JL 

391 

67. 

RHO  CICL,  J ,  1  )=RHO  (KLM,J,1) 

392 

68. 

RHOUCKL, J,1)=0.0 

393 

69. 

RHOVCKL , J , 1 ) =RH0V(KLM, J, 1 ) 

394 

70. 

RHOEOCL,J,1 )  =  RHOEOCLM,J ,  1) 

395 

71. 

14 

CONTINUE 

396 

C 

397 

C 

398 

72. 

100 

RETURN 

399 

73. 

END 

BC 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

13, 

P= 

22B 

BC 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

20, 

P= 

72C 

BC 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

26, 

P= 

130C 

BC 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

36, 

P= 

173B 

BC 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

43, 

P= 

224C 

BC 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

50, 

P* 

262D 

BC 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

56, 

P= 

320D 

BC 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

66, 

P  = 

363C 

400 

1. 

SUBROUTINE  TRANS 

401 

2. 

COMMON  /  /  PH, DETA,DZETA,CV,RC, PR, PRT, GAMMA, EPC70, 103,1), 

402 

1  GAMM1  ,CFL  ,  BETA,  '.'INF,  RHOINF,CINF,TINF,TW,  DT , CX, CY,CZ, L , 

403 

2  IL,JL,KL,ILM,JLM,KLM,ILE,LS, ISMTHX, ISMTHY , ISMTHZ 

404 

5. 

e 

COMMON  /TV/  ETXC70, 103,1), ETY(70, 103,1),E?Z(1,1,1), 

405 

1  ZTXC70, 103, 1 ), ZTY(70, 103, 1),ZTZ( 1,1,1) 

406 

4. 

COMMON  /DOF/  X(70 , 103, 1 ) , Y(70, 103, 1 ) ,Z( 1, 1 , 1 ) 

407 

5. 

DIMENSION  XETC70 , 103) , YETC70, 103) , DJ(70,105), 

408 

1  XZTC70, 103),YZT(70, 103) ,RDJ(70, 103) 

409 

C 

, 

410 

6. 

RDET=1.0/<2.0KDETA) 

411 

7. 

RDZT=1 . 0/(2. OKDZETA) 

412 

8. 

JLM2=JLM-1 

415 

9. 

KLM2SKLM-1 

414 

C 

415 

c 

SET  THE  DUMMY  THREE  DIMENSIONAL  METRICS 

416 

c 

417 

10. 

£TZ( 1 , 1 , 1 )=0 . 0 

418 

11. 

ZTZ( 1 , 1 , 1 ) =0 . 0 

419 

c 

420 

c 

421 

c 

GENERATING  DX/DTEA  AND  DY/DTEA 

422 

c 

423 

c 

424 

c 

ONE-SIDE  DIFFERENCING  FOR  J=1 

425 

c 

426 

12. 

DO  101  KV=1 , XL 

427 

13. 

XETOCV, 1 )-(4 . 0#X(KV, 2, 1 )-X(KV,3,l )-3. 0*X(KV,  1, 1 )>*RDET 

428 

14. 

YET(KV,1)=(4.0*Y(KV,2,1)-YOCV,3»1)-3.0*Y(KV>1»1))*RDET 

429 

15. 

101 

CONTINUE 

430 

c 

431 

c 

ONE-SIDE  DIFFERENCING  FOR  J=JL 

432 

c 

433 

16. 

DO  102  KV=1 , XL 

434 

17. 

XETCKV, JL)=-(4.0KX(KV, JLM,1)-X(KV, JLM2,1)-3.0*X(KV, JL,1))XRDET 

435 

18. 

YETOCV, JL)=-(4.0*Y(KV, JLM, 1 )-Y( KV, JLM2, 1 )-3 . 0*Y( XV, JL , 1 ) )*RDET 

436 

19. 

102 

CONTINUE 

437 

c 

438 

c 

CENTRAL  DIFFERENCING  FOR  FIELD  POINTS 

439 

c 

440 

20. 

DO  103  JV-2, JLM 

441 

21. 

JP=JV+1 

442 

22. 

JM=JV-1 

443 

23. 

DO  104  KV=1 , XL 

444 

24. 

XET(KV.JV)=(XLKV,JP,1)-X(KV,JM,1))KRDET 

445 

25. 

YETtXV, JV)=(Y(KV,JP,1)-Y(KV,JM,1))*RDET 

446 

26. 

104 

CONTINUE 

447 

27. 

103 

CONTINUE 

448 

C 

449 

C 

GENERATING  DX/DZETA  AND  DY/DZETA 

450 

C 

451 

C 

452 

C 

ONE-SIDE  DIFFERENCING  FOR  K=1 

453 

C 

454 

28. 

DO  201  JV=1,JL 

455 

29. 

XZT( 1,JV)=(4.0*X(2,JV,1)-X(3,JV,1)-3.0*X(1,JV,1) )KRDZT 

456 

30. 

YZTC1, JV)=(4.0*Y<2,JV,1)-Y(3,JV,1)-3.0KY(1, JV,1))*RDZT 

457 

31. 

201 

CONTINUE 

458 

C 

459 

C 

ONE-SIDE  DIFFERENCING  FOR  K=KL 

460 

C 

461 

32. 

DO  202  JV=1 , JL 

462 

33. 

XZT(KL,JV)=-(4.0*X(KLM,JV,1)-X(XIM2,JV,1)-3.0kX(KL,JV,1) )*RDZT 

46  3 

34. 

YZTCXL, JV)=-(4.0KY(XLM, JV, 1  )-Y(KLM2, JV, 1 )-3 . 0*Y( KL , JV,1))*RDZT 

464 

35. 

202 

CONTINUE 

465 

C 

466 

C 

CENTRAL  DIFFERENCING  FOR  FIELD  POINTS 

467 

C 

468 

36. 

DO  203  JV=1,JL 

469 

37. 

DO  204  KVS2, KLM 

47  0 

38. 

KP=KV+1 

471 

39. 

KM=KV-1 

472 

40. 

XZTCKV, JV)=CX(KP, JV, 1 )-X(KM, JV, 1 ) )*RDZT 

473 

41. 

YZTLKV, JV)=(Y(ltP, JV,1)-YCKM, JV,1))*RDZT 

474 

42. 

204 

CONTINUE 

475 

43. 

203 

CONTINUE 

476 

C 

477 

c 

GENERATING  THE  INVERSE  JACOBIAN  OF  TRANSFORMATION 

478 

c 

194 


479 

44. 

DO  300  JV=1,JL 

480 

45. 

DO  301  KV=1,KL 

481 

46. 

DJ(KV,JV)«XET(KV,JV)*YZTCICV,JV)-XZTCICV,JV)*YET(KV,JV> 

482 

47. 

501 

CONTINUE 

483 

48. 

300 

CONTINUE 

484 

C 

1 

485 

486 

49. 

c 

DO  305  JV-1,JL 

487 

50. 

DO  304  KV*1,KL 

488 

51. 

RDJ(KV,JV)=1.0/DJ(KV,JV> 

489 

52. 

304 

CONTINUE 

490 

53. 

303 

CONTINUE 

491 

C 

492 

C 

GENERATING  THE  hETRICS  OF  COORDINATES  TRANSFORMATION 

493 

494 

54. 

C 

DO  305  JV=1,JL 

495 

55. 

DO  306  KV-l.KL 

496 

497 

56. 

C 

ETXLKV, JV,1)*  YZTOCV, JV)*RDJ(KV, JV) 

498 

499 

57. 

c 

ZTX(KV,JV,1)=-YET(KV,JV)KRDJCKV,JV> 

500 

501 

58. 

c 

ETY(KV,JV,1)=-XZTCKV,JV)KRDJCKV,JV> 

502 

503 

59. 

c 

ZTY(KV,JV,1)=  XET(KV,JV)*RDJCKV,JV> 

504 

505 

506 

60. 

c 

c 

306 

CONTINUE 

507 

61. 

305 

CONTINUE 

508 

509 

62. 

C 

RETURN 

510 

63. 

END 

TRANS 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

12, 

P= 

124415B 

TRANS 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

16, 

P  = 

124460D 

TRANS 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

23, 

P  = 

124525C 

TRANS 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

28, 

P  = 

124563B 

TRANS 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

32, 

P  = 

124617D 

TRANS 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

37, 

P  = 

124663C 

TRANS 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

45, 

P  = 

124725B 

TRANS 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

50, 

P  = 

124757C 

TRANS 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

55, 

P= 

125005D 
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511 

1. 

512 

513 

51 A 

2. 

515 

516 

3. 

517 

518 

4. 

519 

520 

5. 

521 

522 

6. 

523 

C 

524 

7. 

525 

C 

526 

C 

527 

C 

528 

C 

529 

c 

530 

8. 

531 

C 

532 

C 

533 

C 

534 

9. 

535 

10. 

536 

c 

537 

11. 

538 

12. 

539 

13. 

540 

541 

14. 

542 

15. 

543 

C 

544 

16.  1 

545 

C 

546 

C 

547 

C 

548 

17. 

549 

18. 

550 

19. 

551 

20. 

552 

21.  2 

553 

C 

554 

22. 

555 

C 

556 

C 

557 

C 

558 

C 

559 

C 

56  0 

C 

561 

23. 

562 

C 

563 

C 

564 

c 

565 

c 

566 

24. 

567 

25. 

568 

C 

569 

26. 

57  0 

27  . 

571 

28. 

572 

573 

29. 

574 

30. 

575 

C 

576 

31 .  10 

577 

C 

578 

C 

579 

C 

580 

32. 

581 

33. 

582 

34. 

585 

35. 

584 

36.  11 

585 

C 

586 

37. 

587 

C 

588 

38. 

589 

PAGE 

39. 

PAGE 


SUBROUTINE  PAGE 

COMMON  /  /  PW, BETA, DZETA,CV,RC, PR, PRT, GAMMA, EPC70, 103,1), 

1  GAMM1,CFL,BETA,UINF,RH0INF,CINF,TINF,TH,DT,CX,CY,CZ,L, 

2  IL, JL,KL,ILM, JLM,KLM,ILE,LS,ISMTHX,ISMTHY,ISMTHZ 
COMMON  /DV/  RC70, 103, 1),UC70, 103, 1),V(70, 103,1), MCI, 1,1), 

1  PC70, 103, 1),TC70, 103,1) 

COMMON  /TV/  ETXC70, 1 03, 1 ) , ETYC70, 103, 1 ) , ETZCl, 1, 1 ) , 

1  ZTXC70, 103,1), ZTYC7  0 ,103,1),ZTZ(1,1,1) 

COMMON  /DEP/  RH0C70, 103, i ).RHOU(70, 103,1), RHOVC70, 103,1), 

1  RH0WCl,l,l),RHOEC70,103,  ) 

COMMON  /DEPP/  RH0PC70, 103, 1),RH0UPC70, 103, 1),RH0VPC7«, 103,1), 
1  RHOWPC1,1,1),RHOEPC70, 103,1) 

H(1,1,1)=0.0 


KXXXXXXXKXXXKKX 
PREDICTOR  SWEEP 
KXXKXXXXXKXXXXX 


L=1 


GENERATING  THREE  PAGES  TEMPORAL  VECTOR  ARRAYS 

DO  1  JV=1 , JL 
DO  1  KV=1 , XL 

R( KV, JV, 1 ) =RHO  (KV, JV, 1) 

UCKV,JV,1)=RH0U(XV, J V , 1 )/RC KV, JV, 1 ) 

VCKV, JV,1)=RH0V(KV, JV,1)/RCKV, JV,1) 

TCKV, JV,1)=CRH0ECKV, JV,1)/RCKV, JV,1)-0.5XCUCKV,JV,1)XX2 
1  +VCKV, JV,1)XX2))/CV 
PCKV,JV,1)=R(KV, JV,1)XRCXT(KV,JV,1) 

CONTINUE 


DO  2  J=2, JLM 
CALL  LETAU) 
CALL  LZETACJ) 
CALL  SUM(J) 
CONTINUE 

CALL  BC 


KXXXXXXXXXXXXXXX 
CORRECTOR  SWEEPS 
xxxxxxxxxxxxxxxx 


L=2 


GENERATING  THREE  PAGES  TEMPORAL  VECTOR  ARRAYS 

DO  10  JV=1,JL 
DO  10  KV=1,KL 

R(KV,JV,1)=RH0P  CKV,JV,1) 

UCKV, JV,1)=RH0UP(KV, J V, 1 )/RC KV , JV, 1 ) 
V(KV,JV,1)=RH0VP(KV,JV,1)/R(KV,JV,1) 

T(KV,JV,1)=CRH0EP(KV. JV,1)/RCKV,JV,1)-0.5X(UCKV,JV,1)XX2 
1  +V(KV,JV,l)xx2))/CV 
P(KV,JV,1)=R(KV,JV,1)XRCXTCKV,JV,1) 

CONTINUE 


DO  II  J=2, JLM 
CALL  LETACJ) 
CALL  LZETACJ) 
CALL  SUMCJ) 
CONTINUE 

CALL  BC 


RETURN 

END 

VECTOR  LOOP  BEGINS  AT  SE9.  NO. 
VECTOR  LOOP  BEGINS  AT  SEQ .  NO. 


10,  P=  16C 

25,  P=  104A 


196 


590 

1. 

SUBROUTINE  LETACJ) 

591 

2. 

COMMON  /  /  PW,DETA,DZETA,CV,RC, PR, PRT, GAMMA, EP(70, 103,1), 

592 

1  GAMM1 ,CFL >  BETA, UINF, RHOINF,CINF, TINF, TW, DT , CX, CY, CZ, L , 

595 

2  IL,JL,KL,ILM,JLM,KLM,ILE,LS, ISMTHX, ISMTHY, ISMTHZ 

594 

3. 

COMMON  /FlUET/  F21(70, 2) , F221 70, 2) , F23C70 , 2) , F25C70,2) , 

595 

1  G21 ( 7  0 , 2 ) , G22 ( 7 0 , 2 ) » G23 ( 7  0 , 2 ) , G25 ( 7  0 , 2 ) »  H (  7 0 ) 

596 

4. 

COMMON  /DV/  R(70,103,1),U(70,103,1),V(70,103,1),H(1,1,1), 

597 

1  P(70, 103, l),Tt70, 103,1) 

598 

5. 

COMMON  /TV/  ETXC70, 103,1), ETY (70,103,1),ETZ(1,1,1), 

599 

1  ZTX(70, 103,1), ZTYC70, 103,1),ZTZ(1,1,1) 

600 

6. 

COMMON  /DOF/  X( 70, 103, 1 ) , Y(70, 1 03, 1 ) . Z( 1 , 1, 1 ) 

601 

7. 

DIMENSION  UET(7 0 ) » UZTC7 0 ) , VET<70) , VZT(70) , RMUC70), 

602 

1  RLMBDC70), SMUC70) ,RK(70),TAUXX(7Q) , TAUXRI70) , 

603 

2  TAURR(70),TX(70),TY(70),TET(70)*TZT(70)> DUDXC70) , 

604 

3  DVDRC70) 

64)5 

C 

606 

8. 

RDET=1 .O/DETA 

607 

9. 

RDZT=1 .0/(2. OXDZETA) 

608 

C 

609 

10. 

DO  1  M=l,2 

610 

C 

611 

C 

612 

C 

FORWARD  &  BACKWARD  DIFFERENCING  FOR  PREDICTOR  8  CORRECTOR 

615 

C 

614 

C 

615 

C 

KKXXXXXXKK 

616 

11. 

JV=L+M+J-3 

617 

12. 

JM=J+M-2 

618 

13. 

JP=JM+1 

619 

C 

xxxxxxxxxx 

620 

C 

621 

C 

622 

14. 

DO  2  KV=2, KLM 

623 

C 

624 

15. 

KP=KV+1 

625 

16. 

KM=KV-1 

626 

C 

GENERATING  THE  SHEAR  STRESS  8  HEAT  FLUX  TERMS 

627 

C 

628 

17. 

UET(KV)=CU(KV,JP,1)-U(KV,JM,1))XRDET 

629 

18. 

VET(KV)=(V(KV,JP,1)-V(KV,JM,1))XRDET 

650 

19. 

TET(KV)=(TCKV,JP,1)-T(KV,JM,1))xRDET 

651 

C 

632 

20. 

UZT(KV)=CU(KP,JV,1)-U(KM,JV,1))XRDZT 

633 

21 . 

VZT(KV)  =  (V(KP,JV,1)**V(KM,JV,1)  )xRDZT 

634 

22. 

TZTIKV)=(T(KP, JV,1)-T(KM,JV,1))XRDZT 

635 

C 

636 

C 

GENERATING  THE  VISCOSITY  COEFFS  8  HEAT  CONDUCTIVITY 

637 

C 

638 

23. 

RMU(KV)=2.27E-08XSQRT(T(KV, JV,1)xx3)/CT(KV,JV,1)+198.6) 

639 

24. 

RK( KV  )  =GAMMA*CVX( RMUC  KV )/PR+EP( KV ,JV,1)/PRT) 

640 

25. 

RMU( KV ) =RMU( KV )+EP(KV,JV,l) 

641 

26. 

RLMBD(KV)=-(2.0/3.0)XRMU(KV) 

642 

27. 

SMUC  KV ) =2 . 0*RMU(KV)+RLMBD(KV) 

643 

C 

644 

28. 

2 

CONTINUE 

645 

c 

646 

29. 

DO  3  KV=2, KLM 

647 

c 

648 

30. 

RY=1.0/Y(KV,JV,1) 

649 

c 

650 

31. 

DUDX( KV) =ETX(KV, JV, 1 )XUET(KV)+ZTX(  KV,  JV,  1 )XUZT(KV) 

651 

c 

652 

CM 

►O 

DVDR( KV ) =ETY  <  KV , J V, 1 ) XVET ( KV )+ZTY ( KV, JV , 1 ) xVZT  C  KV ) 

653 

c 

654 

33. 

TAUXX(KV)=SMU(KV)XDUDX(KV)+RLMBD(KV)X(V(KV,JV,1)XRY 

655 

1  +DVDR(KV))-P(KV, JV,1) 

656 

c 

657 

34. 

.'AURR(KV)=SMU(KV)XDVDR(KV)  +  RLMBD(KV)X(V(KV,JV,1)XRY 

658 

1  +DUDXCKV))-P(KV, JV,1) 

659 

c 

660 

35. 

TAUXR( KV ) =RMU(KV) *<  ETY( KV , JV, 1 )XUET (KV )+ZTY( KV , JV, 1 )* 

661 

1  UZT ( KV )+ETX(KV, JV, 1 ) XVET ( KV )+ZTX( KV, JV, 1 )*VZT(KV) ) 

662 

c 

663 

36. 

3 

CONTINUE 

664 

c 

665 

37. 

IF(JV.NE.J)  GO  TO  20 

666 

c 

667 

38. 

DO  10  KV=2, KLM 

668 

c 

669 

39. 

RY=1.0/Y(KV,J,1) 

19  7 


670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 
485 
686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 
705 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 
LETA 
LETA 
LETA 
LETA 
LETA 


40. 


41. 


42. 

C 

43.  10 
C 

C 

C 

C 

44.  20 
C 

45. 

46. 

C 

47.  4 
C 
C 
C 

48. 

C 

49. 

50. 

51. 

52. 


53. 

54. 

55. 

56. 


C 

57.  5 
C 

58.  1 

59. 

60. 


DUDXCKVJsETXCKV.J.lJKCUCICV^+l.n-UCKV.J-l.nmo.SKRDET) 
1  ♦ZTX(KV,J,1)X(UUV+1,J,1)-U(KV-1,J,1))*RDZT 

«DY25S5y?.sETY(,CV'J'1)*(v(,(V*J+l'1)-v^V,J-l.l))x(0.5XRDET) 
1  ♦ZTY(KV,J,l)x<VUV+l,J,l)-V(KV-l,J,l))KRDZT 

H(JCy)*{SMU(Kv)xV(KV,J,l)*RY+RLMBD(KV)X(DUDXCKV) 

1  ♦DVDR(KV))-P(ICV,J,1))«RY 

CONTINUE 

GENERATING  THE  HEAT  FLUX  TERMS 
DO  4  KV=2,KLM 

TX(KV)=ETXCKV,JV,1)*TETCKV>+ZTX(KV,JV,1)*TZTCKV> 
TY(KV)=ETY(KV, JV, 1)*TET(KV)+ZTY(KV, JV* l)KTZT(KV) 

CONTINUE 

GENERATING  THE  FLUX  TERMS 
DO  5  KV=2»  KLM 

F21CKV,M)=R(KV, JV, 1 )«UCKV, JV, 1 > 

F22(KV,M)=F21CKV,M)*U(KV, JV, 1 )-TAUXX(KV> 
F23(KV,M)=F21(KV,M)*VUV,JV,i)-TAUXRCKV) 

4F.^SP'M)  =  F21(KV’M)*(CV,tT<,cv'JV'1)  +  0-5K(U(KV,JV,l)xx2+ 

1  V(KV,JV,l)x*2))“RK(KV)*TX(KV) 

2  -(U(KV,JV,1)XTAUXXCKV)+VCKV,JV,1>*TAUXR(KV>) 

G21(KV,M)=R<KV, JV,1)*VCKV, JV,1)KYCKV,  JV.l) 
G22(KV,M)=G21(KV,M)XUCKV, JV, 1 >~TAUXR(KV)*Y(KV, JV,1) 

G23  KV.M)=G21(KV.M)XV(,(V>JV,1)-TAURR(KV)«YCXV,JV,1) 

,G»?5wv,.M):G21(KV'M)*<CVXTCKV'JV'1)+0-5J,cu(KV'Jv»i)*x2+ 

1  V(KV, JV,1)**2))-(RKCKV)*TY(KV> 

2  +(UCKV,JV,1)*TAUXR(KV)+VCKV, JV,1)XTAURR(KV)))*YCKV,JV,1) 

CONTINUE 

CONTINUE 

RETURN 

END 


AT 

SEQ. 

NO. 

14,  P= 

2300A 

AT 

SEQ. 

NO. 

29,  P= 

2424A 

AT 

SEQ. 

NO. 

38,  P= 

2520A 

AT 

SEQ. 

NO. 

44,  P= 

2613D 

AT 

SEQ. 

NO. 

48,  P= 

2647A 

198 


715 

1. 

SUBROUTINE  LZETA(J) 

716 

2. 

COMMON  /  /  PW, BETA, DZETA,CV,RC, PR, PRT, GAMMA, EP(70, 103,1), 

717 

1  GAMM1,CFL,BETA,UINF,RH0INF,CINF,TINF,TW,DT,CX,CY,CZ,L, 

718 

2  IL,JL,KL,ILM,JLM,KLM,ILE,LS,ISMTHX,ISMTHY,ISMTH2 

719 

3. 

COMMON  /FLUZT/  F31(70),F32(70),F33(70),F35(70), 

720 

1  G31(70),G32(70),G33(70),G35(70) 

721 

4. 

COMMON  /DV/  R(70, 103, 1),U(70, 103, 1),V(70, 103, 1),W( 1,1,1), 

722 

1  P(70, 103, 1),T(70, 103,1) 

723 

5. 

•  COMMON  /TV/  ETX(70, 103,1), ETY(70 , 103,1), ETZC1, 1,1), 

724 

1  ZTX(70, 103,1), ZTY(70 , 103,1),ZTZ(1,1,1) 

725 

6. 

COMMON  /DOF/  X(70, 103, 1 ) ,Y(70 , 103, 1 ) , Z( 1 , 1 , 1 ) 

726 

7. 

DIMENSION  UET(70),UZT(70),VET(70),VZT(7Q),RMU(70), 

727 

1  RIMBD(70), SMU(7  0) , RK(7  0  )  ,TAUXX(7  0 ) ,TAUXR(70) ,  ' 

728 

2  TAURR(70),TX(70),TY(70),TET(70)»TZT(70), DUDXC 7 0 ) , 

729 

3  DVDR(70) 

730 

C 

731 

8. 

RDET=1 .0/(2. OXDETA) 

732 

9. 

RDZT=1 . O/DZETA 

733 

10. 

JP*J+1 

734 

11. 

JM=J-1 

735 

C 

736 

12. 

DO  1  KK=1,KLM 

737 

C 

738 

C 

739 

C 

FORWARD  8  BACKWARD  DIFFERENCING  FOR  PREDICTOR  8  CORRECTOR 

740 

C 

741 

C 

KXXXXXXKX 

742 

13. 

KV=KK+L-1 

743 

14. 

KM=KK 

744 

15. 

KP=KM+1 

745 

C 

KXXXXXXKX 

746 

C 

747 

C 

GENERATING  THE  SHEAR  STRESS  8  HEAT  FLUX  TERMS 

748 

C 

749 

16. 

UET(KK)=(U(KV,JP,1)-U(KV,JM,1))XRDET 

750 

17. 

VET(KK)=(V(KV,JP,1)-V(KV,JM,1))kRDET 

751 

18. 

TET(KK)=(T(KV, JP, 1 )-T(KV, JM, 1 ) )*RDET 

752 

C 

753 

19. 

UZT(KK)=(U(KP,J,1)-U(KM,J,1))XRDZT 

754 

20. 

VZT(KK)=(V(KP,J,1)-V(KM,J,1))XRDZT 

755 

21. 

TZT(KK)=(T(KP,J,1)-T(KM,J,1))XRDZT 

756 

C 

757 

C 

GENERATING  THE  VISCOSITY  COEFFS  8  HEAT  CONDUCTIVITY 

758 

C 

759 

22. 

RMU(KK)=2.27E-08*SQRT(T(KV,J,1)*K3)/(T(KV,J,1)+198.6) 

760 

23. 

RK(KK)=GAMMAXCVX(RMU(KK)/PR+EP(KV,J,1)/PRT) 

761 

24. 

RMU(KK)=RMU(KK)+EP(KV, J,l) 

762 

25. 

RLMBDCKK)=-(2.0/3.0)*RMU(KK) 

763 

26. 

SMU(KK)=2.0*RMU(KK)+RLMBD(KK) 

764 

C 

765 

27.  1 

CONTINUE 

766 

C 

767 

28. 

DO  2  KK=1 , KLM 

768 

C 

769 

29. 

KV=KK+L-1 

770 

C 

771 

30. 

RY=1 . 0/Y( KV, J, 1 ) 

772 

C 

773 

774 

31. 

c 

DUDX(KK)=ETX(KV,J,1)XUFT(KK)+ZTX(KV,J,1)XUZT(KK) 

775 

776 

32. 

c 

DVDR(KK) =ETY(KV, J, 1 )XVET ( KK)+ZTY(KV, J, 1 )XVZT(KK) 

777 

33. 

TAUXX(KK)=SMU(KK)*DUDX(KK)+RIMBD(KK)*(V(KV,J,1)XRY 

778 

779 

r 

1  +DVDR(KK))-P(KV,J,1) 

780 

34. 

TAURR(KK)=SMU(KK)XDVDR(KK)+RLMBD(KK)X(V(KV,J,1)XRY 

781 

1  +DUDX(KK))-P(KV, J,l) 

782 

C 

783 

35. 

TAUXR(KK)=RMU(KK)X(ETY(KV,J,1)XUET(KK)+ZTY(KV,J,1)X 

784 

785 

c 

1  UZT ( KK)+ETX( KV, J , 1 )XVET( KK)+ZTX( KV, J , 1 )XVZT (KK) ) 

786 

787 

c 

c 

GENERATING  THE  HEAT  FLUX  TERMS 

788 

36. 

TX(KK)=ETX(KV, J, 1 )XTET(KK)+ZTX(KV, J, l)XTZT(KK) 

789 

790 

37 . 

c 

TY(KK)=ETY(KV, J, 1 )XTET(KK)+ZTY(KV, J,1)XTZT(KK) 

791 

38.  2 

CONTINUE 

792 

C 

793 

C 

794 

C 

GENERATING  THE  FLUX  TERMS 

795 

c 

199 


796 

59. 

DO  3  KK»1,KLM 

797 

C 

798 

799 

40. 

c 

KVSKK+L-1 

800 

41. 

F31(KK)cR(KV,J,l)KU(KV,J,l) 

801 

42. 

FS2  C ICK)  =F31  C ICK)  *U(  KV ,  J,1  )-TAUXXC  ICK) 

802 

43. 

F33(KK)sF31(KIOKV(KV, J, l)-TAUXR(KK) 

805 

804 

805 

806 

44. 

c 

F35(KK)=F31(KIC)*(CV*T(KV, J,l)+0.5*tU(KV» J*1)XX2+ 

1  V(KV,  J»1)**2))-RK(KK)*TX(KK) 

2  -(U(KV, J, 1)KTAUXX(KK)+V(KV, J, l)KTAUXR(KK) ) 

“  807 

45. 

G31(KK)=R(KV,J,1)*V(KV,J,1)*Y(KV,J>1) 

808 

46. 

G32( KK)=G31(KK)*U( KV, J , 1 )-TAUXR( KIOXYCKV, J , 1 ) 

809 

47. 

G33(KK)=G31(KK)*V(KV, J,1)-TAURR(KK)*Y(KV,J,1) 

810 

48. 

G35UIO=G31CICIO*CCV*T(KV,J,1>+0.5*CUCKV,J,1)«2+ 

811 

812 

813 

c 

1  V(KV,J,1)KK2))-(RK(KK)*TY(KK) 

2  +(U(KV,J,l)*TAUXRCKIO+V(ICV.J,l)*TAURRCICIO)>*Y(KV,J,l) 

814 

49. 

5 

CONTINUE 

815 

50. 

RETURN 

816 

LZETA 

LZETA 

LZETA 

51. 

END 

VECTOR  LOOP  BEGINS  AT  SEQ.  NO.  12,  P=  2271B 
VECTOR  LOOP  BEGINS  AT  SEQ.  NO.  28,  P=  2420D 
VECTOR  LOOP  BEGINS  AT  SEQ.  NO.  39,  P=  2534D 

200 


*17 

1. 

818 

819 

820 

2. 

821 

822 

3. 

823 

824 

4. 

825 

826 

5. 

827 

828 

6. 

829 

7. 

830 

831 

8. 

832 

9. 

833 

C 

834 

10. 

835 

11. 

836 

12. 

837 

13. 

838 

C 

83<» 

14. 

840 

C 

841 

C 

842 

C 

843 

C 

844 

C 

845 

15. 

846 

C 

847 

16. 

848 

17. 

849 

C 

850 

851 

852 

18. 

853 

c 

854 

855 

856 

19. 

857 

c 

858 

20. 

1 

859 

c 

860 

21. 

861 

c 

862 

22. 

863 

23. 

864 

c 

865 

866 
867 

24. 

868 

c 

869 

870 

871 

CM 

872 

c 

873 

26. 

2 

874 

c 

875 

r*. 

CM 

876 

c 

877 

28. 

878 

c 

879 

O' 

CM 

880 

c 

881 

30. 

882 

31. 

883 

32. 

884 

33. 

885 

34. 

10 

886 

C 

887 

35. 

888 

c 

889 

c 

890 

c 

891 

c 

892 

36. 

100 

893 

c 

894 

37. 

895 

38. 

SUBROUTINE  SUMJ) 

COMMON  /  /  PW,DETA,DZETA,CV,RC,PR,PRT, GAMMA, EPC70, 103,1), 

1  GAMM1 ,CFL  , BETA, UINF, RHOINF»CINF, TINF,TW, DT, CX»CY,CZ, L* 

2  IL,JL,KL,ILM,JLM,Kl M,ILE, L5, ISMTHX, ISMTHY , ISMTHZ 
COMMON  /FLUET/  F21 (70, 2) , F22C70, 2) , F23(70, 2) , F25(70, 2) , 

1  G21(70,2),G22(70,2),G23C70,2),G25(70,2),HC70) 

COMMON  /FLUZT/  F31(70),F32(70),F33(70),F35C70), 

1  G31 (70), G32<70), GS3C70),G35(70) 

COMMON  /TV/  ETXC70,103,l),ETY<70,103,l),ETZCl,l,l>, 

1  ZTXC70, 103, 1 ) , ZTYC70, 103, 1 ),ZTZ(1,1,1) 

COMMON  /DEP/  RHOC 7 0 , 1 03, 1 ) , RH0UC7 0, 103, 1 ) , RHOV(70, 103, 1 ) , 

1  RHOWC 1,1,1), RHOEC70, 103, 1 ) 

COMMON  /DEPP/  RH0PC70, 103, 1),RHOUP(70, 103, 1),RH0VPC70, 103,1), 
1  RHOWP( 1 ,l,l),RHOEP (70, 103,1) 

COMMON  /DAMP/  ADD1(70),ADD2(70),ADD3(70),ADD5(70) 

COMMON  /DOF/  XC70,103,i),Y(7Q,103,i),ZCl,l,i) 

RDET=1.0/DETA 
RDZT=1 , O/DZETA 
RHOWPC 1,1,1) =0.0 
RHOW  (1,1,1)=0.0 

IFCL.EQ.2)  GO  TO  100 

XXXXXXXXXXXXXXXX 
PREDICTOR  SWEEPS 
KXKXXXXXKXXKXXXX 


DO  1  KV-2,KLM 


KM=KV-1 

RY=1.0/Y(KV,J,1) 

RHOP(KV, J, 1 )=RHO(KV, J, 1 )-DT»( ( ETXOCV, J, 1 )x(F21CKV, 2)-F21 (KV, 1 )) 

1  +ETY1KV, J,1)XRYX(G21(KV,2)-G21(KV,1)))XRDET+(ZTX(KV,J,1)X 

2  (F31(KV)-F31(KM)) +ZTY (KV,J,1)XRYX(G31CKV) -G31 ( KM ) ) ) XRDZT ) 

RHOUP(KV, J , 1 )=RHOU( KV, J , 1 )-DTX( { ETXtKV, J, 1 )*( F22(KV, 2)-F22( KV, 1 ) ) 

1  +ETY( KV, J , 1 )XRYX(G22( KV, 2)“G22( KV, 1 ) ) ) *RDET+(ZTX(KV, J , 1 )» 

2  (F32<KV)-F32CKM))+ZTY(KV,J,1)KRYX(G32(KV)-G32(KM)))XRDZT) 

CONTINUE 
DO  2  KV=2, KLM 
KM=KV-1 

RY=\.0/Y(KV,J,1) 

RHOVPCKV, J,l)=RHOV(KV, J,1)-DTX((ETX(KV,J,1)X(F23(KV,2)-F23(KV,D) 

1  +ETY(KV,J,l)XRYX(G23(KV,2)-G23tKV,l)))XRDET+(ZTX(KV,J,l)x 

2  CF33(KV)-F33CKM))+ZTY(KV,J,1)KRYX(G33(KV)-G33(KM)))XRDZT+H(KV)) 

RHOEP(KV,J,l)=RHOE(KV, J , 1 )-DTx ( ( ETX( KV, J, 1 )x( F25( KV, 2 )-F25(KV, 1 ) ) 

1  +ETYCKV, J,1)XRYX(G25(KV,2)-G25(KV,1)))XRDET+(ZTX(KV,J,1)X 

2  CF35(KV)-F35(KM) )+ZTY(KV, J, 1 )XRY*(G35(KV)-G35(KM) ) ) XRDZT) 
CONTINUE 

IF( ( ISMTHX . EQ . 0) . AND. (ISMTHY.  EQ .  0) )  GO  TO  200 
CALL  DAMPING! J) 

DO  10  KV:2,KLM 

RHOP  (KV, J,l)=RHOP  (KV,J,1)+ADD1(KV) 

RHOUPCKV, J,l)=RHOUPCKV, J, 1 )+ADD2(KV) 

RHOVPCKV, J,l)=RHOVP(KV,J,l)+ADD3(KV) 

RHOEPCKV, J,1)=RH0EPCKV, J , 1 )+ADD5C KV) 

CONTINUE 

GO  TO  200 


XXXXXXXXXXKXXXKK 
CORRECTOR  SWEEPS 
XXXXXXXXXXKXXXKK 

DO  3  KV=2,KLM 
KM=KV-1 

RY=1.0/Y(KV,J,1) 


201 


896 

C 

897 

59. 

898 

899 

900 

901 

C 

902 

40. 

903 

904 

905 

906 

C 

907 

41.  3 

908 

C 

909 

42. 

910 

C 

911 

43. 

912 

44. 

913 

C 

914 

45. 

915 

916 

917 

918 

C 

919 

46. 

920 

921 

922 

923 

C 

924 

47.  4 

925 

C 

926 

48. 

927 

C 

928 

49. 

929 

C 

930 

50. 

931 

C 

932 

51. 

933 

52. 

934 

53. 

935 

54. 

936 

C 

937 

55.  20 

938 

C 

939 

56.  200 

940 

57. 

SUM 

SUM 

SUM 

SUM 

SUM 

SUM 

RHOCICV,J,1>  =  0.5*CRHOCKV,J,1)+RHOP(ICV,J,1>-DT*((ETX(KV,J,1)k 

1  (F21(ICV,2)-F21(KV,1))+ETYCICV,  J , 1 )*RY*CG21< KV, 2)-G21 (XV, 1 ) ) >KRDET 

2  +(ZTX(KV, J, 1)*(F31CKV)-F31(KM))+ZTY(KV» J, 1 )*RY*(G31(KV)~G31(KM) )) 

3  KRDZT)) 

RH0U(KV,J,l)s0.5*<RH0UCKV,J,l)+RH0UPCKV,J,l)-DT*C(ETXCKV,J,l)x 

1  ( F22CKV, 2)~F22(KV, 1 ) )+ETY( XV, J, 1 )xRY*(G22CKV, 2)-G22( XV, 1 ) ) )*RDET 

2  ♦<ZTX(KV,J,1)*<F32(KV)-F32(KM>)+ZTY(KV,J,1)*RYX(G32(KV>-G32CKM>)) 

3  *RDZT>) 

CONTINUE 
SO  4  KV=2, KLM 
KM=KV-1 

RY=1 . O'YtKV, J, 1) 

RHOVIKV, J, l)e0 . 5*(RH0V(KV,  J,  D+RHOVPIKV,  J, 1 )-DT*{ (ETX(KV, J, 1 )x 

1  (F23(KV,Z)-F23(KV,1))+ETYCKV, J,1)XRYx(G23CKV,2)-G23(KV.1)))kRDET 

2  +  (ZTX(KV,J,l)X(F33CKV)-F33CKMmZTY(KV,J,l)XRYX(G33CKV)-G33CKM))) 

3  XRDZT+HCKV))) 

RHOECKV,  J,l)=0.5x(RH0E<KV, J, 1 )+RHOEP(KV, J, 1 )-DTx( C ETXCKV, J, 1 )x 

1  ( F25IKV, 2)-F25( KV, 1 ) )  +  ETY( KV>  J> 1 )KRY*(G25( XV, 2)-G25(KV, 1 ) ) )*RDET 

2  +(ZTXCKV,J,1)*(F35(XV)-F3S(KM))+ZTY(KV,J,1)*RYK(G35(KV)-G35(KM)>) 

3  *RDZT) ) 

CONTINUE 

IF( (ISMTHX. EQ .0) . AND. (ISMTHY . EQ . 0) )  GO  TO  200 
CALL  DAMPING(J) 

DO  20  KV=2»KLM 

RHO  ( KV»  J,  1  )=RHO  (XV,  J.D+ADDKKV) 
RH0U(KV,J,1)=RH0U(KV,J,1)+ADD2(KV) 

RHOV(KV,J,l)=RHOV(KV, J, 1 )+ADD3(KV) 

RHOELKV, J,1)*RH0E(KV,J»1)+ADD5(KV) 

CONTINUE 


RETURN 


END 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

15, 

P= 

15B 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

21, 

P= 

126B 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

29, 

P= 

234A 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

36 , 

P  = 

276C 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

42, 

P  = 

404B 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 
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12. 


13. 

14. 

15. 

16. 

17. 
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C 

c 

c 
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c 

c 

c 

c 
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110 

c 


SUBROUTINE  DAMPXNGCJ) 

COMMON  /  /  PW,DETA,DZETA,CV,RC, PR, PRT, GAMMA, EP(70, 103,1), 

1  GAMM1,CFL,BETA,UINF,RH0INF,CINF,TINF,TW,DT,CX,CY,CZ,L, 

2  Il,JL,KL,ILM,JtM,KLM,ILE,LS, ISMTHX, ISMTHY , ISMTHZ 
COMMON  /DEP/  RHOC70, 103, 1),RH0U(70, 103, 1),RH0VC70, 103,1), 

1  RHOW(1,1,1),RHOE(70, 103,1) 

COMMON  /DEPP/  RHOP(70, 103, 1),RH0UPC70, 103, 1),RH0VP(70, 103,1), 
1  RHOWPC 1 , 1 , 1 ) , RH0EPC7  0, 103,1) 

COMMON  /DAMP/  ADD1(70),ADD2(70),ADD3(70),ADD5(70) 

COMMON  /D V/  R( 70, 103, 1), U(70, 103, 1),V(70, 103, 1),W( 1,1,1), 

1  P(70, 103, 1),T(70, 103,1) 

COMMON  /TV/  ETX(70, 103, 1 ), ETY(70, 103, 1),ETZ( 1,1,1), 

1  ZTX( 7 0,103,1 ) ,ZTY(70, 103,1 ) ,ZTZ( 1 ,1,1) 

DIMENSION  ADDGK70)  ,ADDG2(7  0) ,  ADDG3(70), 

2  ADDG5(70),ADDH1(70),ADDH2(70),ADDH3(70), 

3  ADDH5(70),PD(70,2) 


KLM2=KLM-1 
GAMMR=GAMMA«RC 
RDET=1 . O/DETA 
RDZT=1 . O/DZETA 

SET  DAMPING  TERMS  TO  ZERO  FOR  END  POINTS 


DO  1  KV=1,KL 

ADDG1 (KV) =0 . 0 
ADDG2C KV)=0 . 0 
ADDG3C  KV)  =  0 . 0 
ADDG5C  KV)  =  0 . 0 


ADDH1(KV)  =  0 .0 
ADDH2CKV) =0 . 0 
ADDH3C  KV)  =  0 . 0 
ADDH5(KV)  =  0 . 0 


CONTINUE 

xxx  GENERATING  ADDG  xxx 

IF< ( J . LE . 2) .OR . C J .GE. JLM) )  GO  TO  200 

DO  110  M=l,2 

JV=J+M+L-3 

JP=JV+1 

JM=JV-1 


DO  120  KV=i,KL 

PDCKV,M)=CY«CABS(PCKV, JP, 1 )-2 . 0*PCKV, JV, 1 )+ 

1  P(KV, JM,1))/(PCKV, JP,1)+2.0*PCKV,JV,1)+P(KV,JM,1)))X 

2  (ABS(ETXCKV,JV,1)*U(KV,JV,1)+ETYCKV.JV,1>XVCKV,JV,1>)+ 

3  SQRT(GAMMR*T(KV,JV,1)*CETXCKV,JV,1)*X2+ETY(KV,JV,1)**2))) 
CONTINUE 

CONTINUE 


IF(L .EQ.2)  GO  TO  140 
C 

C  PREDICTOR 

C 

JP=J+1 

JM=J-1 

C 

DO  130  KV=1 , KL 
C 

ADDG1(KV)=DTXCPD(KV,2)X(RH0  ( KV, JP, 1 )-RHO  (KV,J,1))- 
1  PDC  KV, 1 )*( RHO  ( KV, J , 1 )-RHO  C KV, JM, 1 ) > )*RDET 
ADDG2(KV)=DT*(PD(KV,2)X.CRH0U(KV,  JP,  1  )-RHOU(  KV,  J,  1 )  )- 
1  PD(KV,1)*<RH0UCKV, J, I )-RHOU(KV, JM,l)))xRDET 
ADDG3(KV)=DTX(PD(KV,2)XCRH0V(KV, JP, 1 )-RHOV( KV, J, 1))- 
1  PD(KV,1)*(RH0V(KV, J , 1 )-RH0V( KV, JM,l)))xRDET 
ADDG5(KV)=DTX(PD(KV,2)XCRH0E<KV, JP, 1 ) -RHOEC KV, J, 1) )- 
1  PDCKV, 1) X( RHOEC KV, J, 1 )-RHOE( KV, JM, 1 ) ) )*RDET 
C 

130  CONTINUE 
GO  TO  200 
C 

C  CORRECTOR 

140  JP=J+1 
JM= J-l 
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1021 

C 

1022 

44. 

DO  150  KV-1,KL 

1023 

C 

1024 

45. 

ADDGlCKV)=DTx{PD<KV,2>X(RH0P  CKV,JP,l)-RHOP  (KV,J,1>)- 

1025 

1  PDCKV,l)xCRHOP  (KV,J,1)-RH0P  CKV, JM,l)))xRDET 

1026 

46. 

ADDG2(KV)=DTXCPDCKV,2)X(RH0UPCKV,JP,1)-RH0UP(KV,J,1))- 

1027 

1  PD(KV,1)XCRH0UPCKV,J,1)-RH0UPCKV,JM,1)))XRDET 

1028 

47. 

ADDG3CKV)=DTXCPDCKV,2)X(RH0VPCKV,JP, D-RHOVPCKV,  J»l))- 

1029 

1  PDC  KV, 1 )*C  RHOVPCKV, J , 1 )-RHOVP(KV, JM» 1 ) ) JxRDET 

1030 

48. 

ADDG5CKV)=DTXCPDCKV,2)X(RH0EPCKV, JP, 1)-RH0EP(KV, J^l))- 

1031 

1  PDC KV, 1 )*C RHOEPC KV, J , 1 )-RHOEPC KV, JM, 1 ) ) )*RDET 

1032 

C 

1033 

49. 

150 

CONTINUE 

1034 

C 

1035 

C 

1036 

C 

xxx  GENERATING  ADDH  xxx 

1037 

C 

1038 

50.  200 

DO  210  M=1 , 2 

1039 

51. 

DO  220  K=3, KLM2 

1040 

C 

1041 

52. 

KV=K+M+L-3 

1042 

53. 

KP=KV+1 

1043 

54. 

KM=KV-1 

1044 

C 

1045 

55. 

PDCK,M)=CZX( ABSC  PCKP, J ,1)-2.0*P(KV,J,1)  + 

1046 

1  PC  KM, J,1))/CPCKP, J,1)+2.0XP(KV, J,1)+PCKM,J,1)))X 

1047 

2  CABSCZTXCKV, J,1)XUCKV,J,1)+ZTYCKV,J,1)XV(KV,J,1>)+ 

1048 

3  SORT C GAMMRXT (KV,J,1)*CZTXCKV,J,1) XX2+ZTY ( KV , J , 1 ) XX2 ) ) 

1049 

C 

1050 

56.  220 

CONTINUE 

1051 

C 

1052 

C 

EXTEND  THE  DAMPING  RANGE  FROM  3<K<KLM2  TO  3<K<KLM 

1053 

C 

USE  THE  SYMMETRIC  PROPERTY  OF  THE  FLOW  FIELD 

1054 

C 

1055 

57. 

KV=KLM+M+L-S 

1055 

58. 

KP=KV+1 

1057 

59. 

KM=KV-1 

1058 

60. 

PP  =  P  C  KLM2, J , 1 ) 

1059 

61. 

IF(KP.LE.KL)  PP=PCKP, J,l) 

1060 

62. 

PDCKLM,M)=CZX(ABSCPP-2.0XP(KV,J,1)+PCKM,J,1))/ 

1061 

1  CPP+2.0*PCKV,J,l)+PCKM,J,l)))x 

1062 

2  CABSCZTXCKV, J, 1 )XUC KV, J , 1 )+ZTYC KV, J , 1 >XVC KV, J, 1 > ) 

1063 

3  +SQRTCGAMMR*TCKV,J,1)X(ZTXCKV,J,1)XX2+ZTY(KV,J,1)XX2) 

1064 

C 

1065 

63. 

210 

CONTINUE 

1066 

C 

1067 

64. 

IFCL.EQ.2)  GO  TO  240 

1068 

C 

1069 

C 

PREDICTOR 

1070 

C 

1071 

65. 

DO  230  KV=3, KLM 

1072 

C 

1073 

66. 

KP=KV+1 

1074 

67. 

KM=KV-1 

1075 

C 

1076 

68. 

ADDH1CKV)=DTX(PDCKV,2)*CRH0  (KP,J,1)-RH0  CKV,J,1))- 

1077 

1  PDC  KV , 1 )*C  RHO  C  KV , J , 1 5-RHO  ( KM, J , 1 ) ) )*RDZT 

1078 

69. 

ADDH2CKV)=DT*CPDCKV,2)*CRH0UCKP, J , 1 )-RHOUC KV, J , 1 ) )- 

1079 

1  PDCKV,1)*CRH0UCKV, J , 1 ) -RHOUC KM, J,1)))XRDZT 

1080 

70. 

ADDH3CKV)=DT«CPDCKV,2)XCRH0VCKP, J,1 )-RHOVCKV, J,l))- 

1081 

1  PDCKV,1)XCRH0V(KV, J, 1 J-RHOVCKM, J,1)))«RDZT 

1082 

71. 

ADDH5CKV)=DT*CPDCKV,2)XCRH0ECKP, J , 1 )-RHOEC KV, J, 1 ) )- 

1083 

1  PDCKV,1)XCRH0ECKV, J , 1 )-RH0EC KM, J, 1 ) ) JxRDZT 

1084 

C 

1085 

72.  230 

CONTINUE 

1086 

C 

1087 

73. 

GO  TO  300 

1088 

C 

1089 

C 

CORRECTOR 

1090 

C 

1091 

74.  240 

DO  250  KV=3» KLM 

1092 

C 

1093 

75. 

KP=KV+1 

1094 

76. 

KM=KV-1 

1095 

C 

204 


1096 

1097 

77. 

1098 

1099 

78. 

1100 

79. 

1101 

1102 

1103 

80. 

1104 

C 

1105 

81. 

250 

1106 

C 

1107 

C 

1108 

C 

1109 

82. 

300 

1110 

C 

1111 

83. 

1112 

84. 

1113 

85. 

1114 

86. 

1115 

c 

1116 

87. 

510 

1117 

C 

1118 

88. 

1119 

DAMPING 

DAMPING 

DAMPING 

DAMPING 

DAMPING 

DAMPING 

DAMPING 

DAMPING 

89. 

ADDH1 (KV)«DT*CPD(KV, 2)X(RH0P  (KP, J,1)-RH0P  (KV, 
1  PD(KV»1)X(RH0P  (KV,J,1)-RH0P  (KM, J,1)))*RDZT 
ADDH2CKV)*DTX(PD(KV,2)*CRH0UP(KP,J,1)-RH0UP(KV, 
1  PDCKV,l)*CRHOUP(KV,J,l)-RHOUPCKM,J,l)))XRDZT 
ADDH3(KV)aDT*(PD(KV,2)K(RH0VP(KP» J, 1)-RH0VP(KV, 
1  PD( KV , 1 ) * ( RHOVP ( KV , J , 1 ) -RHOVP ( KM, J , 1 ) ) ) *RDZT 
ADDH5(KV)*DT*(PDCKV,2)X(RH0EP(KP»  J, l)-RHOEP(KV> 
1  PD ( KV , 1 ) * ( RHO  EP ( KV , J , 1 ) -RHOEP ( KM , J , 1 )  ) ) KRDZT 

CONTINUE 

SUMMING  THE  ARTIFICIAL  VISCOSITY-LIKE  TERMS 
DO  510  KV«l,Kl 

ADDl(KV>=ISMTHX«ADDGl<KV>+ISMTHY*ADDHi<KV) 

ADD2(KV)=ISMTHX«ADDG2(KV)+ISMTHYXADDH2(KV) 

ADD3(KV)=ISMTHX*ADDG3(KV)+ISMTHY*ADDH3(KV) 

ADD5(KV)=ISMTHXXADDG5(KV)+ISMTHYKADDH5(KV) 

CONTINUE 


RETURN 

END 
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1321B 
136  AC 
14AAC 
153AD 
1620D 
1702A 
2026C 
2111C 
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1120 

1. 

SUBROUTINE  EDDY 

1121 

2. 

COMMON  /  /  PW,DETA,DZETA,CV,RC, PR, PRT, GAMMA, EPC70, 103,1), 

1122 

1  CAMM1 ,CFL, BETA, UINF, RHOINF,CINF,TINF,TW, DT,CX,CY,  CZ,  L , 

1123 

2  IL , JL , KL ,  XLM,  JLM, RI  M,  HE,  IS,  ISMTHX,  ISMTHY, ISMTHZ, 

1124 

3  FLOHF,WN, WFBB»HT , OMEGA (70, 103) 

1125 

3. 

COMMON  /DEP/  RHO(70, 103, 1),RH0U(70, 103, 1),RHOV(70, 103,1), 

1126 

1  RHOW( 1, 1, 1 ), RHOE(70, 103,1) 

1127 

4. 

COMMON  /DOF/  XC70,103,1),Y(70,103,1),Z(1,1,1) 

1128 

5. 

COMMON  /TV/  ETXC70, 103,1), ETY(70, 103, 1) , ETZ( 1,1,1), 

1129 

1  ZTX(70, 103,1), ZTYI70, 103, 1 ),ZTZ(1,1,1) 

1130 

6. 

COMMON  /D V/  R(70,103,1),U(70,103,1),V(70,103,1),WC1,1,1), 

1131 

1  PC70, 103, 1),TC70, 103,1) 

1132 

7. 

DIMENSION  F(70, 103), JMAX(70),SL(70,103),XM(70, 103,1), 

1133 

1  EPMAXC103) , UET (70, 103), VET (70, 103), UZT(70, 103) , VZTC70, 103), 

1134 

2  QE(  103), DSTARC 103), 0(70), DELC70),DX(70),EMO(70),YPB(70, 103) 

1135 

3  , XK1 ( 1 03) , XK2( 103) , APLUSC 1 03) , ISW( 103 ) , ISOMC 103) , DELTC 103) , 

1136 

4  ISXMC 103) 

1137 

C 

1138 

8. 

RMU=2.270E-08*SQRT(TW**3)/(TW+198 .6) 

1139 

9. 

RMUINF=2 . 27E-Q8*SQRT(TINFXX3)/(TINF+198 .6) 

1140 

10. 

RCV=1 . O/CV 

1141 

11. 

PINF=RHOINFKRC*TINF 

1142 

12. 

XKE=0 . 0168 

1143 

13. 

YL=0. 614797 

1144 

C 

1145 

14. 

DO  1  J=1,JL 

1146 

15. 

XK1CJ)=0.40 

1147 

16. 

XK2(J)=XKE 

1148 

17. 

APLUSC J ) =26 . 0 

1149 

18. 

1  CONTINUE 

1150 

19. 

DO  3  J  =  1 ,  JL 

1151 

20. 

DO  3  K=1 , KL 

1152 

21. 

RR=1 . O/RHOCK, J , 1 ) 

1153 

22. 

U(K,J,1)=RH0U(K,J,1 )KRR 

1154 

23. 

V(K,J,1)=RH0VCK, J,1)«RR 

1155 

24. 

TCK,J,1)=(RH0E(K,J,1)*RR-0.5*(U(IC,J,1)XK2+VCK,J,1)**2))*RCV 

1156 

25. 

P(K,J,1)SRH0(K,J, 1 )XRCKT(K, J, 1 ) 

1157 

26. 

XM(K,J,1)=SQRT((U(K, J,l)**2+VCK,J,l)*x2)/CGAMMA*RCXT(K,J,l))) 

1158 

27. 

3 

CONTINUE 

1159 

C 

1160 

C 

GENERATING  THE  DERIVATIVES  OF  VELOCITY 

1161 

C 

1162 

28. 

RDET=1.0/(2.0*DETA) 

1163 

29. 

RDZT=1 . 0/(2 . OXDZETA) 

1164 

C 

1165 

30. 

DO  4  J=2,JLM 

1166 

31. 

DO  4  K=2»  KLM 

1167 

32. 

UETCK, J)=(U(K,J+1,1)-U(X,J-1,1))*RDET 

1168 

33. 

VET(K, J)=(V(K, J+1,1)-V(K, J-1,1))*RDET 

1169 

34. 

UZT(K,J)=(U(K+1,J,1)-U(K-1,J,1))*RDZT 

1170 

35. 

VZT(K, J)=(VCK+1,J,1)-V(X-1,J,1))*RDZT 

1171 

36. 

4 

CONTINUE 

1172 

C 

1173 

C 

GENERATING  THE  VORTICITY  DISTRIBUTION 

1174 

C 

1175 

37. 

DO  5  J=2, JLM 

1176 

38. 

DO  5  K=2,KLM 

1177 

39. 

OMEGAC  X,  J  )  =S()RT < 

1178 

1  (ETX(K, J,1)KVET(X,J)+ZTX(X, J,1)«VZT(K, J) 

1179 

2  -ETYCK, J,1)KUET<K, J)-ZTY(K, J,1)*UZT(X, J))K*2) 

1180 

40. 

5 

CONTINUE 

1181 

C 

1182 

C 

GENERATING  THE  SCALING  LENGTH 

1183 

c 

1184 

41. 

DO  6  J=l, JL 

1185 

42. 

DO  6  K=1 , KL 

1186 

43. 

SUK, J)=SQRT((Y(K,J,1)-Y(1, J,1))K*2+(X(K,J,1)-X(1,J,1))KK2) 

1187 

44. 

6 

CONTINUE 

1188 

c 

1189 

c 

GENERATING  THE  SURFACE  VORTICITY 

1190 

c 

ONE-SIDED  DIFFERENCING  IN  K-DIRECTION  FOR  K=1 

119L 

c 

1192 

45. 

RDZT=1 . O/DZETA 

1193 

c 
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1194 

46. 

1195 

47. 

1196 

48. 

1197 

49. 

1198 

50. 

1199 

51. 

1200 

1201 

1202 

52. 

1203 

1204 

1205 

1206 

53. 

1207 

54. 

1208 

1209 

1210 

55. 

1211 

56. 

1212 

57. 

1213 

58. 

1214 

59. 

1215 

60. 

1216 

61. 

1217 

62. 

1218 

63. 

1219 

64. 

1220 

65. 

1221 

1222 

66. 

1223 

1224 

1225 

1226 

67. 

1227 

68. 

1228 

69. 

1229 

1230 

1231 

70. 

1232 

1233 

1234 

1235 

1236 

1237 

71. 

1238 

72. 

1239 

73. 

1240 

74. 

1241 

75. 

1242 

76. 

1243 

77. 

1244 

78. 

1245 

79. 

1246 

1247 

1248 

1249 

1250 

80. 

1251 

81. 

1252 

82. 

1253 

83. 

1254 

84. 

1255 

85. 

1256 

86. 

1257 

87. 

1258 

1259 

1260 

1261 

88. 

1262 

89. 

1263 

90. 

1264 

91. 

1265 

92. 

1266 

93. 

1267 

94. 

1268 

95. 

1269 

96. 

1270 

97. 

1271 

98. 

1272 

99. 

1273 

100. 

1274 

101. 

DO  7  J=2, JLM 

UETCl,J)=CUCl,J+l,l)-UCl,J-i,l))*RDET 
VET(1,J)=(V(1,J+1,1)-V(1>J-1,1>) xRDET 
U2ra,J)«?(U(2,J,i)-U(l,J,l))*RDZT 
VZT (1,J)=£V(2,J,1)-V(1,J,1 ) )KRDZT 
OMEGAC 1 , J )=SQRT ( ( ETXC 1 , J , 1) *VET( 1 ,  J ) 
1+ZTXC1,J,1)*VZTC1,J)-ETY(1,J,1)*UETC1,J> 

2-ZTY ( 1 r  J  r 1 ) *UZT ( 1 , J ) ) XK2 ) 

7  CONTINUE 
C 

C  GENERATING  THE  INNER  VISCOSITY  COEFFICIENT 

C 

IPSW=0 

DO  8  J=2,JLM 

C  CHECK  FOR  ADVERSE  PRESSURE  GRADIENT  ON  HALL 

C 

IFC J . LE . 25)G0  TO  60 
DELP=P(1,J, 11-PCl, J-l,l> 

IF(DELP.GT.O.O)  IPSW=1 
IF(IPSH.EQ.l)  GO  TO  55 
GO  TO  60 
55  XK1 ( J )=0 .65 
APLUS( J ) =65 . 0 

PGRAD=CPC1,J,1)-PC1,J-1,1>)*YL/CCY(1,J,1>-Y(1,J-1,1))XPINF) 
XKS=0 . 015XPGRAD 

XK2(J)=XK2<J-1)+XKS*CYC1,J,1>-YC1,J-1,1)> 

60  CONTINUE 
C 

DO  8  K=2,KLM 
C 

C  SUPRESS  THE  UNDERFLOW  MESSAGE  FROM  EXPONENTIAL  CALCULATIONS 

C 

YPBCK, J)=SQRT(RHO(l, J»l)*OMEGA(l» J)/RMU)*SL(K, J)/APLUS(J) 
YPBCK, J)=AMIN1CYPB(K, J),50.0) 

EPIK, J,1)=RH0(K,J,1)*CXK1(J)*SLCK,J>*C1.0-EXPC-YPBCK,J>>))XX2X 
1  OMEGA(K,J) 

C 

8  CONTINUE 
C 

C  CEBICI  SMITH  MODEL 

C 

C  SEARCH  FOR  QMAX  AT  EACH  J  LOCATION 

C 

DO  100  J=2, JLM 
QABS=0 . 0 
QMAX=0.0 
DO  90  K=2,KL 

QABS=SQRTCUCK,J,1)XX2+VCK,J,1>**2> 

QMAX=AMAX1 C  QABS, QMAX) 

QE( J ) =QMAX 
90  CONTINUE 

100  CONTINUE 

C 

C  FIND  INFLECTION  POINT  IN  VELOCITY  GRADIENTS 

C  IF  ONE  EXISTS 

C 

DO  830  J=2, JIM 
DO  801  K=4, KLM 
ISW(J)=K-1 

IF(V(K»J>l).LT.O.)  GO  TO  801 
DELV=V(Kf  J , 1 )-VCK-l» J» 1 ) 

IF(DELV.LE.O)  GO  TO  830 
801  CONTINUE 
830  CONTINUE 
C 

C  COMPUTE  DEL  STAR  AT  EACH  LOCATION 
C 

DO  105  J=2> JLM 
N=ISW( J) 

DSTARC  J )  =  0 . 0 

DX(  2 )=X( 2,  J ,  1  )-X(  1 ,  J,  1 ) 

Q( 1 )  -0 . 0 

Q(2)=SQRT(UC2, J, 1 ) KK2+V( 2, J , 1 )**2) 

DEL(2)=((1.0-Q(2)/QE(J))+(1 . 0-Q(l )/QE( J) ) )»DXC2>/2 . 0 
DO  106  K  =  3» N 

DXCK)=X(K,J,1)-X(K-1,J,1) 

900=SQRT(U(K,J#1)KX2+V(K,J,1)*X2) 

DEL(K)=DEL(K-l)*(<l.-Q(K)/9ECJ))+tl.-QCK-l)/QE(J)))xDX(K)/2.0 
DSTARC J)=DEL(K) 

106  CONTINUE 
105  CONTINUE 
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1275 

C 

1276 

C 

COMPUTE  EDDY  VISCOSITY  FOR  OUTER  REGION 

1277 

C 

1278 

C 

AT  EACH  LOCATION  COMPUTE  EMOCK) 

1279 

C 

1280 

102. 

DO  150  J=2, JLM 

1281 

103. 

DO  130  K=2,KLM 

1282 

104. 

EM0CK)*XK2CJ)XRH0CIC,J,1)XQECJ>XDSTAR(J> 

1283 

105. 

130 

CONTINUE 

12C4 

C 

1285 

C 

SELECT  APPROPRIATE  EDDY  VISCOSITY  VALUE  FOR  OUTER  REGION 

1286 

C 

1287 

'  106. 

ISHTHsO 

1288 

107. 

DO  140  K*2,KLM 

1289 

108. 

IFCEMOCIO  .LE.EPOC,J,l))  ISWTH»1 

1290 

109. 

IFCISWTH.EQ.l)  EPOC,  J>  1  )sEM0(IC) 

1291 

110. 

IFC EPOC, J,1).EQ. 0.0)  EPOC,J,l)*EP(IC,J-i»l) 

1292 

111. 

140 

CONTINUE 

1293 

112. 

150 

CONTINUE 

1294 

C 

1295 

C 

1296 

C 

COMPLETE  THE  EDDY  VISCOSITY  MATRIX 

1297 

C 

1298 

113. 

EPOCLM,JL,l)=EPOCLM.JLM,l) 

1299 

114. 

EPOCLM,JL,l)=EPOCLM,JLM,l) 

.1300 

115. 

DO  20  J=l, JL 

1301 

116. 

EP( 1 , J , 1 )=0 . 0 

1302 

117. 

EPCKL, J,l)  =  EPOCLM,J,l) 

1303 

118. 

20 

CONTINUE 

1304 

119. 

DO  30  K=1,KL 

1305 

120. 

EPCIC,1,1)  =  0.0 

.1306 

121. 

EPCK.JL, 1)  =  EPOC, JLM, 1) 

1307 

122. 

30 

CONTINUE 

1308 

123. 

RETURN 

1309 

124. 

END 

EDDY  VECTOR  LOOP  BEGINS  AT  SEQ.  NO.  14,  P=  163326B 
EDDY  VECTOR  LOOP  BEGINS  AT  SEQ.  NO.  20,  P=  163373D 
EDDY  VECTOR  LOOP  BEGINS  AT  SEQ.  NO.  31,  P-  163452D 
EDDY  VECTOR  LOOP  BEGINS  AT  SEQ.  NO.  38,  P=  163526C 
EDDY  VECTOR  LOOP  BEGINS  AT  SEQ.  NO.  42,  P=  163572B 
EDDY  VECTOR  LOOP  BEGINS  AT  SEQ.  NO.  46,  P=  163622B 
EDDY  VECTOR  LOOP  BEGINS  AT  SEQ.  NO.  66,  P=  163706B 
0  AT  SEQUENCE  NUMBER  -  98. 

PRNAME  EDDY  COMMENT  -  DEPENDENCY  INVOLVING  ARRAY  "DEL"  XXXXXXXXXXXX ****** 
EXPLANATIONi  PREVIOUS  MINUS  WITH  AN  INCREMENTING  SUBSCRIPT 


EDDY 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

103, 

P  = 

164134A 

EDDY 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

115, 

P  = 

164204A 

EDDY 

VECTOR 

LOOP 

BEGINS 

AT 

SEQ. 

NO. 

119, 

P  = 

1642310 
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1 . 
2. 


3. 

4. 
-5 . 
6. 

7. 

8. 
9. 

10. 
11  . 
12. 

13. 

14. 

15. 
16  . 

17. 

18. 

19. 

20. 
21  . 
22. 

23. 

24. 


25. 
26  . 

27  . 
28. 

29. 

30. 


31  . 

32. 

33. 

34. 

35. 

36  . 

37  . 


SUBROUTINE  PREAMB 

COMMON  /  /  PW,DETA,DZETA,CV,RC, PR, PRT, GAMMA, EPC70, 103,1), 

1  GAMM1,CFL,BETA,UINF.RH0INF,CINF,TINF,TW,DT,CX,CY,CZ,L, 

2  IL, JL,KL,ILM, JLM, KLM, ILE, LS, ISMTHX, ISMTHY,  ISMTHZ, 

3  FLOWF, WN, WFBB, WT, OMEGA ( 7 0,103) 

COMMON  /FLUET/  F21 ( 7 0 , 2 1 , F22 C 7 0 , 2) , F23C 7 0 , 2 ) , F25C7 0 , 2 ) , 

1  G21(70,2),G22(70,2)»G23(70,2),G25(70,2),H(70) 

COMMON  /FLUZT/  F31 ( 7 0 ) , F32C 7 0 ) , F33( 7 0 ) , F35C 7 0 ) , 

1  G31(70),G32(70),G33(70),G35(70) 

COMMON  /TV/  ETXC70, 103,  1 ) , ETY(70, 103, 1), ETZC1, 1, 1 ) , 

1  ZTX(70,103,1)»ZTY(70»103,1)»ZTZ(1,1,1) 

COMMON  /DEP/  RHO(70, 103, 1),RHOU(70, 103,  1),RH0VC70, 103,1), 

1  RH0WC1.1, 1),RHOEC70, 103,1)  „ 

COMMON  /DEPP/  RH0PC70, 103, 1),RH0UP(70, 103, 1),RHOVP(70, 103,1), 
1  RH0MPC1, 1,1). RH0EPC70, 103,1) 

COMMON  /DOF/  XC 7 0 , 1 03, 1 ) , Y( 7 0, 1 03, 1 ) , Z C 1 , 1 , 1 ) 

COMMON  /NEWT/  AR, XM 


WRITEC  8 , 6666 )  HT 
6666  FORMAT ( X  WT  =  x,E15.9/) 

WRITE(8,6000) 

6000  FORMAT ( X  J  Y  RHO  RHOU  RHOV 

1  RHOEX/) 

XL=0 .21669996 
YL=0 .61479659 
RCV  =  1 . O/CV 
CP=CV+RC 

RUINF=RH0INFXUINF 
PI=4.XATAN(1 . ) 

ASTAR1 =0 . 1971133 
ASTAR2=0. 576395 
PINF=RHOINFXRCXTINF 
RHOWC 1 ,  1 ,  1  )  =  0 . 0 
EP( 1 , 1 , 1 ) -0 . 0 


c 

c 

c 


SET  FLOWFI ELD  WITH  ACTUAL  INFLOW  CONDITIONS 


XM=UIN F/CINF 
READ(l)  NI.TMSl, 
1  X,  Y, Z, EP 
NI  =  1 

TMS1 =0.0 


TMS2, RHO , RHOU, RHOV, RHOW, RHOE, 


TMS2=0 . 0 
ENTHO=CPXTW 


C 

C  SPECIFY  INITIAL  CONDITIONS 

C 

C  EXIT  PLANE  CONDITIONS 

C 

RHOCKL, JL,1) =4. 28 0731 E-04 
TE=PW/(RCXRHO(KL , JL, 1 ) ) 

RHOUCKL, JL, 1 )  =0  .  0 
V=SQRT(2. OX(ENTHO-CPXTE) ) 

RHOV(KL,JL,l)= RHOCKL, JL,1) XV 

RHOECKL, JL,1)=RH0(KL, JL,1)X(CVXTE+0.5XVXX2) 

XM=V/SQRT (GAMMAXRCXTE) 


C 

C  SET  UP  l.D.  NORMAL  SHOCK  SOLUTION  FOR  I.C. 
C 


38. 

4000 

F0RMAT(I3,2X,6£13.6) 

39  . 

XMr  2 . 55 

90. 

DO  100  J  =2 , 55 

41  . 

Ar4.xPlxXLXY(KL,J,l) 

42. 

RHOVCKL , J , 1 ) =WT/A 

43. 

AR=ASTAR1/A 

44. 

CALL  NEWTON 

45". 

T=TW/(1 . 0+0 .2XXMXX2) 

46  . 

V-SQRT ( 2 . OX(ENTHO-CPXT)) 

47  . 

RHOCKL, J,l)=RHOV(KL,J,l)/V 

48  . 

RHOUCKL, J,1)=0.0 

49. 

RHOECKL, J,1)=RHO(KL,J,1)XCCVXT+0. 5 *Vxx2) 

50. 

WRITEC8,4000)  J , YC KL , J , 1 ), RHOCKL , J , 1 ), RHOUC KL , J , 1 ), RHOVC KL , J , 1 ) 
1  RHOECKL, J,l) 

51. 

100 

CONTINUE 
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52. 

53. 

54. 

55. 

56  . 

57  . 

58  . 
59. 

-60  . 
61  . 
62. 


63. 

64. 

65. 
66  . 

67  . 

68  . 

69. 

70. 
71  . 

72. 

73. 

74  . 
75. 
76  . 
7  7  . 

78. 

79. 
SO  . 


C 

C 

C 


C 

C 

c 


c 


NORMAL  SHOCK  OCCURS  BETWEEN  J=56  AND  J  =  57 


J  =  56 


XM  =  0 . 478052 
A=4.*PIXXL*Y(KL,J,1) 
RHOVCKL, J,1)=WT/A 
T=TN/( 1 . 0+0 . 2XXMXX2) 
C=SQRT(GAMMAXRCXT) 
V=XM*C 


1 


RHOCKL, J,1)=RH0VCKL,J,1)/V 
RHOUCKL , J , 1 )  =  0  .  0 

RHOECKL , J, 1 )=RHOCKL , J, 1  )X(CVXT+0 . 5XVXX2) 
WRITEC  8 , 4  00  0 )  J , YC KL , J , 1 ) , RHO C KL , J , 1 ) , RHOU C 
RHOECKL, J,l) 


KL 


,  J, 


SET  UP  DOWNSTREAM  FLOWFI ELD 

DO  105  J  =  57 , J LM 
A  4.XPIXXLXYCKL,J,1) 
aR=ASTAR2/A 
RHOVCKL, J,1)=WT/A 
CALL  NEWTON 

V=SQRTC2. OX(ENTHO-CPXT) ) 

RHOCKL, J, 1)=RH0VCKL,J,1)/V 

RHOUCKL, J,1)=0.0 

RHOECKL, J , 1 ) = RHOCKL , J , 1 ) x ( CVXT+O . 5XVXX2) 

WRIT  EC  3, 4 000)  J , YC KL , J , 1 ) , RHOC KL , J , 1 ) , RHOU C KL , J , 
1  RHOECKL, J , 1 ) 

105  CONTINUE 


DO  120  J=2,JL 
DO  120  K=2, KL 

r:uocK,j,i)  =  RHocKL,  j,d 
RHOUCK, J, 1)=RH0UCKL,  J, 1) 
RHOVCK, J,1)=RH0VCKL, J,l) 
RH0ECK,J,1)=RH0ECKL,J,1) 
EPCK, J,1)=0.0 


81  .  120  CONTINUE 

C 

C  SPECIFY  THE  NO-SLIP  SURFACE  B.C. 

C 

82-  RHOWL=RHOINFXTINF/TW 

83.  RHOEW  =  RHOWL  XCVXTW 
C 

84.  DO  2  J  =  I L E, J L 

85.  RHO  C 1 , J , 1 ) =  RHOWL 

86.  RHOUC 1,J,1)=0.0 

87.  RHOVC 1 , J , 1 ) =0 . 0 

88.  RH0EC1, J,1)=RH0EW 

89.  2  CONTINUE 

C 

c  INITIALIZE  PREDICTOR  VARIABLES 

C 

90.  DO  6  J  =  1 , J L 

91  .  DO  6  K= 1 , KL 

92.  RHOPCK, J,1)=RH0CK,  J,l) 

93.  RHOUPCK, J,1)=RH0UCK, J, 1) 

94.  RH0VPCK,J,1)=RH0VCK,J,1) 

95.  RHOEPCK, J,1)=RH0ECK, J,l) 

96  .  6  CONTINUE 

97.  RH0WPC1, 1,1)=0.0 
C 

C  INITIALIZE  FLUX  COMPONENTS 

C 

98.  DO  3  J  =  1 , 2 

99.  DO  3  K= 1 ,  KL 

100..  F21CK,J)  =  0.0 

101.  F22C  K, J )  =  0 . 0 

102.  F23C  K , J  )  =  0 . 0 

103.  F25C  K, J  )  =  0 . 0 

104.  G21CK,J)=0.0 

105.  G22C  K, J  )  =  0 . 0 

106.  G23CK,J)=0.0 

107.  G25CK,J)=0.0 

108.  3  CONTINUE 


1), RHOVCKL, J,l) 


1), RHOVCKL, J,l) 
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109. 

DO  4  K=1 , KL 

110. 

F31 (K) =0 . 0 

111. 

F32! K) =0 . 0 

112. 

F33! K ) =0 . 0 

113. 

F35!K)=0.0 

114. 

G31!K)=0 . 0 

115. 

G32 ! K)  =  0 . 0 

116  . 

G33CK) =0.0 

117  . 

G35( K) =0.0 

118  . 

H(K)=0 . 0 

”119. 

4 

CONTINUE 

120. 

1000 

FORMAT!/, X  J  Y 

121 . 

2000 

FORMAT (I3,1X,3E12.5) 

122. 

WRITE! 8 ,1000) 

123. 

DO  3000  J=l,Jl 

124  . 

RH=1 .O/RHOIKL. J, 1) 

125. 

V=RHOV!KL, J,1)XRH 

126  . 

T  =  !RHOE!KL, J,  DXRH-O .5XVXX21XRCV 

127  . 

XM=V/SQRT! GAMMA XRCX T ) 

128  . 

WRITE!8 , 2000 )  J , Y! KL , J , 1 ) , XM, T 

129. 

3000 

CONTINUE 

130. 

RETURN 

131  . 

END 

1.  SUBROUTINE  NEWTON 

2.  COMMON  /NEWT/  AR,XM 
C 

3.  T0L=0.0001 

A.  DO  10  1=1,100 

5  .  F=ARXXMXX6+15  .  XARXXMXX4+7 5 .  XARXXMXX2-216 . XXM+125 . *AR 

6  .  FP=6 .XARXXMXX5+60 .XARXXMXX3+150 .XARXXH-216 . 

7.  DEL=F/FP 

8.  XMN=XM-DEL 

9.  TR=ABS( (XMN-XM)/XMN) 

10.  IF(TR.LE.TOL)  GO  TO  20 

11.  XM=XMN 

12.  10  CONTINUE 
C 

13.  20  XM=XMN 

14.  RETURN 

15.  END 


APPENDIX  B 


TABULATED  INFLOW  PROPERTIES  FROM  UTRC  EXPERIMENTAL  DATA 
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APPENDIX  C 


NUMERICAL  case  1a  computational  details 

Details  of  the  first  numerical  case  show  the  progress  of  the  core  flow 
barrel  shock  shock  through  the  diffuser  from  the  imposed  one-dimensional, 
inviscid  normal  shock  initial  condition  through  the  "unstart"  at  2.8 
milliseconds.  For  this  numerical  experiment,  a  uniform  core  inflow  was 
assumed  at  M  -  2.5,  with  no  wall  flow  energization.  Exit  pressure  was  set 
at  60%  of  normal  shock  recovery  pressure.  The  Navier- S tokes  computer  code 
employed  the  standard  Cebeci-Smith  two-layer  algebraic  eddy  viscosity 
turbulence  model.  No  modification  for  adverse  pressure  gradient  was 
incorporated.  The  first  figure  repeats  the  time  history  of  the  core 
flow  normal  shock  position  (from  Figure  20).  Presented  next  are  a  series  of 
Mach  contour  plots,  beginning  with  the  initial  condition  and  proceeding  in 
increments  of  5,000  numerical  iterations  through  N  -  60,000,  when  the 
numerical  "unstart"  is  observed.  Each  plot  presents  the  Mach  contours  from 
M  -  0.0  through  M  -  5.0,  in  increments  of  0.20.  Following  the  Mach  contour 
plots  are  a  series  of  corresponding  nondimensionalized  wall  pressure,  line 
of  symmetry  pressure,  and  line  of  symmetry  temperature  plots.  Pressure  is 
nondimensionalized  in  a  ratio  with  calculated  stagnation  pitot  pressure  and 
temperature  is  nondimensionalized  in  a  ratio  with  stagnation  temperature. 
Development  of  the  wall  boundary  layer  separation  is  quite  apparent  by  N  - 
10,000,  and  this  is  also  readily  seen  in  the  corresponding  wall  pressure 
plot.  Line  of  symmetry  pressure  and  temperature  lag  the  wall  pressure 
significantly  as  indicators  of  diffuser  flow  behavior;  by  N  -  25,000  the 
wall  pressure  indicates  that  the  wall  boundary  layer  separation  is  out  of 
control  by  its  sharp  rise  immediately  after  the  entrance  to  the  diffuser. 
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By  N  -  60,000,  the  nature  of  the  "unstart"  is  clear  as  both  wall  and  line  of 
symmetry  pressure  achieve  values  corresponding  to  normal  shock  pitot 
pressure  at  the  diffuser  entrance.  This  numerical  experiment  required  57..  9 
minutes  of  CRAY  1  CPU  time. 


TABLE  IV 

NUMERICAL  CASE  1A  COMPUTED  SHOCK  POSITION  VS  TIME 


N 

Number  of 
Iterations 

CFL 

TIME 

(Milliseconds) 

R/Rde 

SPOS 

0 

0 

1.614800 

0.200000 

5,000 

.10 

0.094638 

1.621806 

0.202280 

10,000 

.10 

0.189240 

1.628633 

0.204501 

15,000 

.15 

0.331140 

1.632423 

0.205734 

20,000 

.20 

0.520342 

1.621053 

0.202035 

25,000 

.25 

0.756839 

1.570787 

0.185683 

30,000 

.30 

1.040636 

1.454744 

0.147933 

35,000 

.30 

1.324432 

1.358651 

0.116673 

40,000 

.40 

1.702826 

1.341394 

0.111059 

45,000 

.40 

2.081220 

1.363403 

0.118219 

50,000 

.25 

2.317719 

1.381380 

0.124067 

55,000 

.25 

2.554216 

1.231846 

0.075422 

60,000 

.25 

2.791833 

1.004322 

0.001406 
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N=5K  MACH  CONTOURS  CSB  60%NSR  WBB=0 


N=10K  MACH  CONTOURS  CSB  60%NSR  WBB=0 


N=25K  MACH  CONTOURS  CSB  60%NSR  WBB=0 


N=30K  CSB  MACH  CONTOURS  60%NSR  WBB=0 


N=35K  CSB  MACH  CONTOURS  607.NSR  WBB=0 


N=40K  CSB  MACH  CONTOURS  607.NSR  WBB=0 


N=55K  CSB  MACH  CONTOURS  60%NSR  WBB=0 


N=60K  CSB  MACH  CONTOURS  60%NSR  WBB=0 


N=10K  PVVPPi  CSB  607.NSR  WBB=0 


N=15K  PW/PP1  CSB  607.NSR  WBB=0 


N=10K  TCL/TO  CSB  60%NSR  WBB=0 


N=15K  TCL/TO  CSB  60%NSR  WBB=0 


N=20K  P^/PPI  CSB  60%NSR  WBB=0 


N=25K  PW/PPI  CSB  605JNSR  WBB=0 


VYU  vnj 


N=20K  PCL/PPI  CSB  607.NSR  WBB=0  N=25K  PCL/PPI  CSB  60%NSR  WBB=0 


N=20K  TCL/TO  CSB  60%NSR  WBB=0  N=25K  TCL/TO  CSB  60%NSR  WBB=0 


vm  vw 
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N=30K  PtyTPi  CSB  607.NSR  WBB=0  N=35K  PW/PP!  CSB  607.NSR  WBB=0 


N=30K  PCI/PPI  CSB  607.NSR  WBB=0  N=35K  PCL/PPI  CSB  607.NSR  WBB=0 


N=30K  TCL/TO  CSB  60%NSR  WBB=0 


N=35K  TCL/TO  CSB  607.NSR  WBB=0 


N=5GK  PtyPPI  CSB  607.NSR  WBB=0 


N=60K  PW/PPI  CSB  607.NSR  WBB=0 


N=55K  TCI/TO  CSB  607.NSR  WBB=0 


N=60K  TCI/TO  CSB  607.NSR  WBB=0 


APPENDIX  D 


NUMERICAL  CASE  IB  COMPUTATIONAL  DETAILS 


For  this  numerical  experiment  a  uniform  core  inflow  was  assumed  at  M  - 
2.5,  with  no  wall  flow  energization.  Exit  pressure  was  set  at  60%  of  normal 
shock  recovery  pressure.  The  Navier- Stokes  computer  code  employed  the 
Cebeci-Smith  two-layer  eddy  viscosity  turbulence  model  modified  for  the 
effect  of  an  adverse  pressure  gradient  as  described  in  Chapter  V,  Section 
5.3.  Details  of  the  progress  of  the  core  flow  normal  shock  through  the 
diffuser  from  the  imposed  one-dimensional,  inviscid  normal  shock  initial 
condition  to  an  "unstart"  at  approximately  3.4  milliseconds  are  presented. 
The  first  figure  repeats  the  time  history  plot  of  the  core  flow  normal  shock 
(the  terminal  normal  shock  computed  on  the  line  of  symmetry)  position  (from 
Figure  21).  Presented  next  are  a  series  of  Mach  contour  plots,  beginning 
with  the  initial  condition  and  proceeding  in  increments  of  5,000  numerical 
iterations  through  N  -  80,000,  when  the  numerical  "unstart"  is  observed. 

Each  plot  presents  the  Mach  contours  from  M  -  0.0  through  M  -  5.0,  in 
increments  of  0.20.  Following  the  Mach  contour  plots  are  a  series  of 
corresponding  nondimensionalized  wall  pressure,  line  of  symmetry  pressure, 
and  line  of  symmetry  temperature  plots.  Flow  development  is  essentially 
identical  to  that  from  case  la,  with  development  of  the  wall  boundary  layer 
separation  quite  apparent  by  N  -  10,000.  Again,  this  is  clearly  seen  in  the 
corresponding  wall  pressure  plot,  with  the  sudden  pressure  rise  along  the 
diffuser  wall  immediately  after  the  flow  has  entered  the  diffuser.  line  of 
symmetry  pressure  and  temperature  again  lag  wall  pressure  significantly  as 
indicators  of  diffuser  flow  behavior.  The  "stiffer”  eddy  viscosity 
turbulence  model  delays  the  growth  of  this  wall  boundary  layer  separation, 


but  not  to  the  extent  sufficient  to  prevent  core  flow  choking  which 
ultimately  leads  to  the  "unstarted"  condition  depicted  in  the  Mach  contour 
plot  for  N  -  80,000.  The  effect  of  incorporating  the  adverse  pressure 
gradient  modification  to  the  turbulence  model  is  to  delay  the  "unstart"  from 
2.8  milliseconds  to  3.4  milliseconds  of  computational  flow  "time."  This 
numerical  experiment  required  77.2  minutes  of  CRAY  1  CPU  time. 


MODIFIED  C-S  TIME  HISTORY  60%NSR  WBB=0 


TIME  (M1LUSBC) 


N=1  MACH  CONTOURS  60%NSR  WBB=0 


TABLE  V 


NUMERICAL  CASE  IB  COMPUTED  SHOCK  POSITION  VS 


N 

CFL 

TIME 

R/Rde 

Number  of 
Iterations 

(Milliseconds) 

0 

0 

1.614800 

5,000 

.10 

0.0946375 

1.621403 

10,000 

.10 

0.1892396 

1.628000 

15,000 

.  10 

0.3311419 

1.631304 

20,000 

.20 

0,5203417 

1.621268 

25,000 

.25 

0.7568380 

1.590961 

30,000 

.25 

0.9933348 

1.549825 

35,000 

1.2298320 

1.507312 

40,000 

1.4663280 

1.478441 

45,000 

1.7028260 

1.463093 

50,000 

1.9393220 

1.458888 

55,000 

2.1758180 

1.462349 

60,000 

2.4123150 

1.467083 

65,000 

2.6488130 

1.444796 

70,000 

2.8853090 

1.363560 

75,000 

3.1218060 

1.271319 

80,000 

1 

3.3583020 

1.024958 

TIME 


SPOS 


0.200000 

0.202149 

0.204295 

0.205370 

0.202105 

0.192246 

0.178864 

0.165034 

0.155642 

0.150649 

0.149281 

0.150407 

0.151947 

0.144697 

0.118270 

0.088263 

0.008119 


N=35K  MACH  CONTOURS  60%NSR  WBB=0 


N=40K  MACH  CONTOURS  60% NSR  WBB=0 


N=55K  MACH  CONTOURS  60%NSR  WBB=0 


N=60K  MACH  CONTOURS  60%NSR  WBB=0 


N=65K  MACH  CONTOURS  60%NSR  WBB=0 


N=70K  MACH  CONTOURS  607.NSR  WBB=0 


N=1QK  PVy/PPl  CSM  60%NSR  WBB=0 


N=15K  PW/PPI  CSM  607.NSR  WBB=0 


VV1I  VYU 


N=10K  PCL/PPI  CSM  60%NSR  WBB=0  N=15K  PCI/PPl  CSM  60%NSR  WBB=0 


N=10K  TCL/TO  CSM  60%NSR  WBB=0  N=15K  TCI/IX)  CSM  60%NSR  WBB=0 
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N=20K  PW/PPI  CSM  60ZNSR  WBB=0 


N=25K  PW/PPI  CSM  607.NSR  WBB=0 


N=40K  PW/PPI  CSM  607.NSR  WBB=0 


N=45K  PW/PPI  CSM  60%NSR  WBB=0 


N=40K  TCL/TO  CSM  60%NSR  WBB=0 


N=45K  TCL/TO  CSM  60%NSR  WBB=0 


N=50K  P^PPI  CSM  60%NSR  WBB=0 


N=55K  P\0>PI  CSM  607.NSR  WBB=0 


N=50K  TCL/TO  CSM  607.NSR  WBB=0 


N=55K  TC1/TO  CSM  607.NSR  WBB=0 


N=60K  PW/PPi  CSM  607.NSR  WBB=0 


N=65K  PW/PP!  CSM  607.NSR  WBB=0 


N=60K  TCL/m  CSM  60%NSR  WBB=0 


N-65K  TCL/TO  CSM  60%NSR  WBB=0 
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APPENDIX  E 


NUMERICAL  CASE  2A  COMPUTATIONAL  DETAILS 


In  this  numerical  experiment  wall  flow  energization  was  added  to  a 
uniform  core  inflow.  The  core  flow  was  set  at  M  =  2.5.  Wall  bank  blowers 
were  added  at  a  mass  fraction  of  20  percent  of  the  core  flow,  operating  at 
M  =  4.0.  Fxit  pressure  was  set  at  60%  of  normal  shock  recovery  pressure. 

The  Navier-Stokes  computer  code  employed  the  standard  Cebeci-Smith  two-layer 
algebraic  eddy  viscosity  turbulence  model  unmodified  for  the  effects  of  an 
adverse  pressure  gradient.  Details  of  this  numerical  case  show  the  progress 
of  the  core  flow  normal  shock  through  the  diffuser  from  the  imposed  one¬ 
dimensional,  inviscid  normal  shock  initial  condition  through  the  diffuser 
"unstart"  at  7.6  milliseconds  after  flow  "initiation.”  The  time  history  is 
presented  first  repeating  Figure  22.  The  application  of  wall  flow 
energization  is  clearly  seen  in  the  delay  of  the  "unstart"  by  a  factor  of 
nearly  three  in  time;  this  is  reflected  in  the  Mach  contour  plots  presented 
beginning  with  the  initial  condition  and  proceeding  in  increments  of  5,000 
numerical  iterations  through  N  *  101,000,  when  the  numerical  "unstart"  is 
observed.  Each  plot  presents  the  Mach  contours  from  M  =  0.0  through  M  - 
5.0,  in  increments  of  0.20.  Following  the  Mach  contour  plots  are  a  series 
of  corresponding  nondimensionalized  wall  pressure,  line  of  symmetry 
pressure,  and  line  of  symmetry  temperature  plots.  Flow  development,  as 
observed  from  the  Mach  contour  plots,  is  seen  to  be  considerably  different 
from  that  in  case  1,  where  no  wall  flow  energization  was  employed.  Worthy 
of  special  note  is  the  persistence  of  the  wall  bank  blower  flow  throughout 
the  diffuser  and  the  resulting  definition  of  an  entirely  different  wall 
boundary  layer  separation  region.  Evaluation  of  the  wall  pressure  plots 
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again  shows  a  too  severe  pressure  gradient  along  the  wall,  and  the  result  is 
again  core  flow  choking  and  diffuser  ’'unstart."  This  numerical  experiment 
required  97.5  minutes  of  CRAY  1  CPU  time. 


CSB  TIME  HISTORY  60%NSR  WBB=2 


TABLE  VI 


NUMERICAL  CASE  2A  COMPUTED  SHOCK  POSITION  VS  TIME 


N' 

CFL 

TIME 

R/Rde 

Number  of 
Iterations 

(Milliseconds) 

SPOS 


0 

0 

5,000 

.10 

0.095720 

10,000 

.  10 

0.191400 

15,000 

.  15 

0.334900 

20,000 

.20 

0.526300 

25,000 

.25 

0.765500 

30,000 

.30 

1.052500 

35,000 

.35 

1.387400 

40,000 

.40 

1.770100 

45,000 

.45 

2.200700 

50,000 

.50 

2.679100 

55,000 

3.157500 

60,000 

3.635900 

65,000 

4.114300 

70,000 

4.592700 

75,000 

5.071150 

80,000 

5.549600 

85,000 

6.027965 

90,000 

6.506400 

95,000 

6.984800 

100,000 

7.463186 

101,000 

7.558770 

1.614800 

0.200000 

1.648144 

0.210848 

1 . 667660 

0.217197 

1.694493 

0.225926 

1.747688 

0.243231 

1.781665 

0.254284 

1.875062 

0.284667 

1.874970 

0.284637 

1.640185 

0.208259 

1.664012 

0.216010 

1.746628 

0.242886 

1.768914 

0.250136 

1.693651 

0.225652 

1.628362 

0.204413 

1.588687 

0.191506 

1.530465 

0.172566 

1.529617 

0.172290 

1.621766 

0.202267 

1.630656 

0.205159 

1.411284 

0.133795 

1.107168 

0.034863 

1.061157 

0.019895 

N-20K  CSB  MACH  CONTOURS  60%NSR  WBB=2 


N=25K  CSB  MACH  CONTOURS  GO%NSR  WBB=2 


N=60K  CSB  MACH  CONTOURS  607.NSR  WBB=2 


N=G5K  CSB  MACH  CON'IXXJRS  G07.NSR  WBB=2 


N=100K  CSB  MACH  CONTOURS  60%NSR  WBB=2 


N=101K  CSB  MACH  CONTOURS  60%NSR  WBB=2 


N=40K  PW/PPI  CSB  60%NSR  WBB=2 


N=45K  PW/PPI  CSB  60%NSR  WBB=2 


N=50K  PV^PPI  CSB  607.NSR  WBB=2 


N=55K  PVty'PPI  CSB  607.NSR  WBB=2 


N=50K  TCL/TO  CSB  60%NSR  WBB=2 


N=55K  TCL/TO  CSB  60%NSR  WBB=2 


N=60K  PW/PP1  CSB  607.NSR  WBB=2 


N=65K  PW/PPI  CSB  60%NSR  WBB=2 


N=60K  TCL/TO  CSB  60%NSR  WBB=2 


N=65K  TCL/TO  CSB  60%NSR  \VBB=2 


N=70K  PW/PPf  CSB  60J5NSR  WBB=2  N=75K  PW/PPI  CSB  60%NSR  WBB=2 
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N=95K  PV0>PI  CSB  607.NSR  WBB=2 


N=100K  PW/PPI  CSB  607.NSR  WBB=2 


VY1X  vrn 


N=95K  PCI/PPI  CSB  607.NSR  WBB=2  N=100K  PCL/PPI  CSB  60%NSR  WBB=2 


N=95K  TCL/TO  CSB  60%NSR  WBB=2  N=100K  TCL/TO  CSB  60%NSR  WBB=2 
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N=101K  PW/PPI  CSB  607.NSR  WBB=2 


N=10iK  PCL/PPI  CSB  607.NSR  WBB=2 


N=101K  TCI/TO  CSB  60%NSR  WBB=2 
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APPENDIX  F 


NUMERICAL  CASE  2B  COMPUTATIONAL  DETAILS 


Details  of  the  fourth  numerical  case  show  the  progress  in  achieving  the 
first  stable  numerical  solution.  For  this  numerical  experiment  wall  flow 
energization  was  added  to  a  uniform  core  inflow.  The  core  flow  was  set  at  M 
-  2.5.  Wall  bank  blowers  were  added  at  a  mass  fraction  of  20  percent  of  the 
core  flow,  operating  at  M  -  4.0.  Exit  pressure  was  set  at  60%  of  normal 
shock  recovery  pressure.  The  Navier-Stokes  computer  code  employed  the 
Cebeci-Smith  two-layer  eddy  viscosity  turbulence  model  modified  for  the 
effect  of  an  adverse  pressure  gradient  as  described  in  Chapter  V,  Section 
5.3.  Details  of  the  progress  of  the  core  flow  normal  shock  through  the 
diffuser  from  the  imposed  one-dimensional,  inviscid  normal  shock  initial 
condition  to  a  converged,  stable  solution  after  approximately  5 
characteristic  times  are  presented.  The  first  figure  repeats  the  time 
history  plot  of  the  core  flow  normal  shock  position  (from  Figure  27). 
Presented  next  are  a  series  of  Mach  contour  plots,  beginning  with  the 
initial  condition  and  proceeding  in  increments  of  5,000  numerical  iterations 
through  N  -  100,000,  and  thereafter  in  increments  of  25,000,  until  the 
converged  solution  is  achieved  at  N  -  200,000.  Each  plot  presents  the  Mach 
contours  from  M  =  0.0  through  M  -  5.0,  in  increments  of  0.20.  Following  the 
Mach  contour  plots  are  a  series  of  corresponding  nondimens ional ized  wall 
pressure,  line  of  symmetry  pressure,  and  line  of  symmetry  temperature  plots. 
In  the  Mach  contour  plots,  the  persistence  of  the  wall  bank  blower  flow 
through  the  diffuser  all  the  way  to  the  exit  is  again  quite  evident,  as  is 
the  significantly  smaller  wall  boundary  layer  separation  region.  Also 
notable  is  the  "smooth"  behavior  of  the  wall  pressure  from  the  diffuser 
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entrance  to  a  large  overpressure  spike  that  occurs  slightly  downstream  of 
the  core  flow  normal  shock;  the  higher  energy,  higher  Mach  number  bank 
blower  flow  passes  through  a  stronger  shock  before  adjusting  to  diffuser. 


exit  pressure.  From  this  numerical  experiment,  it  was  concluded  that  both 
wall  flow  energization  and  the  adverse  pressure  gradient  modification  to  the 
turbulence  model  are  required  to  attain  a  "started"  diffuser  flow  in  a  short 
diffuser . 

This  numerical  experiment  required  193  minutes  of  CRAY  1  CPU  time. 


CSM  TIME  HISTORY  60%NSR  WBB=2 


TIME  (MILLIS EXT) 
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TABLE  VII 


NUMERICAL  CASE  2B  COMPUTED  SHOCK  POSITION  VS 


N  CFL  TIME 


Number  of  (Milliseconds) 

Iterations 


R/Rde 


0 

0 

1.614800 

5,000 

.10 

0.095720 

1.648144 

10,000 

.10 

0.191400 

1.667660 

15,000 

.15 

0.334900 

1.694493 

20,000 

.20 

0.526300 

1.748190 

25,000 

.25 

0.765500 

1.782913 

30,000 

.30 

1.052500 

1.874352 

35,000 

.35 

1.387400 

1.853772 

40,000 

.40 

1.770100 

1.639180 

45,000 

.45 

2.200700 

1.664639 

50,000 

.50 

2.679100 

1.723284 

55,000 

3.157500 

1.763615 

60,000 

3.635900 

1.747175 

65,000 

4.114300 

1.727047 

70,000 

4.592700 

1.726616 

75,000 

5.071200 

1.732761 

80,000 

5.549600 

1.736607 

85,000 

6.028000 

1.734538 

90,000 

6.506400 

1.732564 

95,000 

6.984800 

1.732936 

100,000 

7.463200 

1.734790 

105,000 

7.941500 

1.735429 

110,000 

8.419900 

1.734652 

115,000 

8.898300 

1 . 733960 

120,000 

9.376700 

1.734080 

125,000 

9 . 855100 

1.734606 

130,000 

10.333500 

1.734609 

135,000 

10.811900 

1.734381 

140,000 

11.290400 

1.734071 

145,000 

11.768800 

1.734344 

150,000 

12 . 247200 

1.734510 

155,000 

12.725600 

1 . 734436 

160,000 

13.204000 

1.734188 

165,000 

13.682400 

1 .734341 

170,000 

14.160800 

1.734390 

175,000 

14.639200 

1.734452 

180,000 

15.117600 

1.734335 

185,000 

15 . 596000 

1.734353 

190,000 

16.074400 

1 . 734329 

195,000 

16.552800 

1.734292 

200,000 

17.031200 

1.734381 

TIME 


SPOS 


0.200000 

0.210848 

0.217197 

0.225926 

0.243394 

0.254690 

0.284436 

0.277741 

0.207932 

0.216214 

0.235292 

0.248412 

0.243064 

0.236516 

0.236376 

0.238375 

0.239626 

0.238953 

0.238311 

0.2384J 2 

0.239035 

0.239243 

0.238990 

0.238765 

0.238804 

0.238975 

0.238976 

0.238902 

0.238801 

0.238890 

0.238944 

0.238920 

0.238839 

0.238889 

0.238905 

0.238925 

0.238887 

0.238893 

0.238885 

0.238873 

0.238902 
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N=5K  MACH  CONTOURS  G07.NSR  WBB =2 


N=10K  MACH  CON'IDURS  60%NSR  WBB=2 


N=25K  MACH  CON’IDURS  GO%NSR  WBB=2 


N=30K  MACH  CON'IDURS  GO%NSR  WBB=2 


N=G5K  MACH  CON’IOURS  GOTINSR  WBB=2 


N=70K  MACH  CONTOURS  607.NSR  WBB=2 


N=05K  MACH  CONTOURS  GO%NSR  WBB=2 


N=90K  MACH  CONTOURS  W)%NSR  WBB=2 


N=1  Ptt/PPl  CSM  60%NSR  WBB=2 


N=5K  PW/PPI  CSM  607.NSR  WBB=2 


N=1  TCL/TO  CSM  607.NSR  WBB=2 


N=5K  TCL/TO  CSM  60%NSR  WBB=2 


N=JiOK  PW/PPI  CSM  607.NSR  WBB=2 


N=15K  PW/PPI  CSM  607.NSR  WBB=2 


N=10K  TCL/TO  CSB  60%NSR  WBB=. 


N=15K  TCL/TO  CSM  60%NSR  WBB=2 


N=20K  PW/PPI  CSM  60%NSR  WBB=2  N=25K  PW/PPI  CSM  60%NSR  WBB=2 


N=20K  PCL/PPI  CSM  607.NSR  WBB=2  N=25K  PCL/PPI  CSM  60%NSR  WBB=2 


N=20K  TCL/TO  CSM  60%NSR  WBB=2 


N=25K  TCL/TO  CSM  60%NSR  WBB=2 


N=30K  PW/PPI  CSM  607.NSR  WBB=2  N=35K  PW/PPI  CSM  607.NSR  WBB=2 


N=30K  PCL/PPI  CSM  607.NSR  WBB=2  N=35K  PCL/PPI  CSM  60%NSR  WBB=2 


N=40K  PW/PPl  CSM  607.NSR  WBB=2 


N=45K  PW/PPI  CSM  607.NSR  WBB=2 


N=50K  PV/PP1  CSM  607.NSR  WBB=2 


N=55K  PW/PPI  CSM  607.NSR  WBB=2 


N=50K  TCl/TO  CSM  60%NSR  WBB=2 


N=55K  TCL/TO  CSM  60%NSR  WBB=2 


N=70K  PW/PH  CSM  6055NSR  WBB=2 


N=75K  PW/PH  CSM  60%NSR  WBB=2 


N=70K  TCI/TO  CSM  60%NSR  WBB=2 


N=75K  TCI/TO  CSM  60%NSR  WBB=2 


N=100K  PW/PPi  CSM  607.NSR  WBB=2 


N=125K  PW/PPI  CSM  60%NSR  WBB=2 


N=100K  TCL/rO  CSM  60%NSR  WBB=2 


N=125K  TCL/TO  CSM  607.NSR  WBB=2 


N=150K  PW/PPI  CSM  607.NSR  WBB =2 


N=175K  PW/PPI  CSM  607.NSR  WBB=2 


N=150K  TCL/TO  CSM  60%NSR  WBB=2 


N=175K  TCL/TO  CSM  60%NSR  WBB=2 


N=200K  PW/PPI  CSM  60WSR  WBB=2 


N=200K  PCL/PPI  CSM  60%NSR  WBB=2 


xmi 


N=200K  TCl/TO  CSM  60%NSR  WBB=2 
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APPENDIX  G 

NUMERICAL  CASE  3A  COMPUTATIONAL  DETAILS 

Details  of  the  first  "long  duct"  numerical  experiment  are  presented, 
showing  the  progress  of  the  line  of  symmetry  normal  shock  to  a  stable, 
"started"  condition  in  the  diffuser.  For  this  numerical  experiment  a 
uniform  core  inflow  was  assumed  at  M  =  2.5,  with  no  wall  flow  energization. 
Exit  pressure  was  set  at  60%  of  normal  shock  recovery  pressure.  The  Navier- 
Stokes  computer  code  employed  the  Cebeci-Smith  two- layer  eddy  viscosity 
turbulence  model  modified  for  the  effect  of  an  adverse  pressure  gradient  as 
described  in  Chapter  V,  Section  5.3.  Selected  Mach  contour, 
nondimensionalized  wall  pressure,  line  of  symmetry  pressure,  and  line  of 
symmetry  temperature  plots  portray  flow  behavior  in  a  long  diffuser  with  no 
wall  boundary  layer  control.  Figure  43  is  repeated,  presenting  the  time 
history  of  normal  shock  position  in  the  diffuser  for  two  characteristic 
times  when  convergence  was  assured  (but  not  entirely  achieved  -  at  this 
point  2,500,000  computational  iterations  had  been  executed  and  further 
computation  was  deemed  unnecessary  and  uneconomical).  The  Mach  contour 
plots  again  present  graphic  flow  images  from  M  =  0.0  to  M  -  5.0,  in 
increments  of  0.20.  Without  wall  flow  energization,  it  is  apparent  that  the 
long  diffuser  length  is  necessary  to  provide  sufficient  recovery  distance 
for  the  large  wall  boundary  layer  separation  region.  Without  wall  bank 
blowers,  no  overpressure  response  io  observed  in  the  behavior  of  the  wall 
pressure,  and  it  is  seen  to  respond  smoothly  in  recovering  to  the  exit 
pressure.  Results  of  this  numerical  experiment  are  consistent  with  well 
established  experimental  results  (11).  This  numerical  experiment  required 
40.2  hours  of  CRAY  1  CPU  time. 
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LONG  DUCT  TIME  HISTORY  CSM  60%NSR  WBB=0 
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607.NSR  WBB=0  N=230,000 


APPENDIX  H 

NUMERICAL  CASE  4A  COMPUTATIONAL  DETAILS 

For  this  numerical  experiment  the  stiffened  eddy  viscosity  model 
developed  in  Chapter  V  was  employed  for  a  flow  field  based  on  the  actual, 
experimental  inflow  profiles  for  the  baseline  UTRC  experiment,  with  the  exit 
pressure  set  at  60%  of  normal  shock  recovery  pressure.  Figure  64  is 
repeated,  presenting  core  flow  normal  shock  position  time  history.  Selected 
Mach  contour,  nondimensionalized  wall  pressure,  line  of  symmetry  pressure, 
and  line  of  symmetry  temperature  plots  portray  the  flow  behavior.  The  Mach 
contour  plots  again  present  graphic  flow  images  from  M=0.0toM=5.0,  in 
increments  of  0.20.  Clearly  visible  are  the  nozzle  profiles  and  the 
persistence  of  the  wall  bank  blower  flow  energizers  to  the  diffuser  exit. 
Again  notable  is  the  "smooth"  behavior  of  the  wall  pressure  from  the 
diffuser  entrance  to  a  large  overpressure  spike  that  occurs  slightly 
downstream  of  the  core  flow  normal  shock;  the  higher  energy,  higher  Mach 
number  bank  blower  flow  passes  through  a  stronger  shock  before  adjusting  to 
diffuser  exit  pressure.  This  numerical  experiment  required  24.2  hours  of 
CRAY  1  CPU  time. 
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TABLE  VIII 


NUMERICAL  CASE  4A  COMPUTED  SHOCK  POSITION  VS  TIME 


N  CFL  TIME  R/R,  SPOS 

ae 

Number  of  (Milliseconds) 

Iterations 


0 

5,000 

10,000 

15,000 

20,000 

25,000 

30,000 

35,000 

40,000 

45,000 

50,000 

55,000 

60,000 

65,000 

70,000 

75,000 

80,000 

85,000 

90,000 

95,000 

100,000 

105,000 

110,000 

115,000 

120,000 

125,000 

130,000 

135,000 

140,000 

145,000 

150,000 

155,000 

160,000 

165,000 

170,000 

175,000 

180,000 

185,000 

190,000 

195,000 

200,000 


0 

.10  0.039450 

.10  0.079081 

.10  0.118710 

.10  0.158348 

.10  0.197980 

.20  0.276900 

.25  0.375390 

.30  0.493440 

.35  0.631040 

.40  0.788180 

.45  0.964870 

.50  1.161098 

1.357392 
1.553560 
1.749790 
1.946022 
2.142250 
2.338480 
2 . 534720 
2.730950 
2.927433 
3.123964 
3 . 320495 
3 .517026 
3.713557 
3.910088 
4.106619 
4.303150 
4.499682 
4.696213 
4.892744 
5.089275 
5 .285806 
5.482337 
5.678868 
5 .875399 
6.071931 
6.268462 
6.464993 
'r  6.661523 


1 . 627127 
1.593350 
1.599307 
1.604072 
1 . 605842 
1.606872 
1.603386 
1.619977 
1.650566 
1.675210 
1.677635 
1 .  704932 
1 .  763719 
1.796577 
1.705504 
1.522451 
1.421609 
1.458614 
1.508409 
1.553428 
1.620622 
1.671426 
1.653151 
1.632900 
1.641338 
1 . 628934 
1 . 603632 
1 .  599439 
1 .  599713 
1.595880 
1.58718C 
1.602563 
1.608311 
1 . 603970 
1 .610761 
1.616030 
1.613650 
1.606691 
1.606995 
1.605922 
1.599369 


0.204011 

0.193350 

0.194961 

0.196511 

0.197087 

0.197422 

0.196288 

0.201685 

0.211636 

0.219653 

0.220442 

0.229322 

0.248446 

0.259135 

0.229508 

0.169959 

0.137154 

0.149192 

0.165391 

0.180036 

0.201895 

0.218422 

0.212477 

0.205889 

0.208634 

0.204599 

0.196368 

0.195004 

0. 195093 

0.193846 

0.191018 

0.196020 

0.197890 

0.196478 

0.198687 

0.200401 

0.199627 

0. 197363 

0.197462 

0.197113 

0. 194981 
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N  CFL  TIME  R/R  SPOS 

de 

Number  of  (Milliseconds) 

Iterations 


205,000 

210,000 

215,000 

220,000 

225,000 

230,000 

235,000 

240,000 

245,000 

250,000 

255,000 

260,000 

265,000 

270,000 

275,000 

280,000 

285,000 

290,000 

295,000 

300,000 

305,000 

310,000 

315,000 

320,000 

325,000 

330,000 

335,000 

340,000 

345,000 

350,000 

355,000 

360,000 

365,000 

370,000 

375,000 

380,000 

385,000 

390,000 

395,000 

400,000 


.50  6.858016 

7.054547 
7.251078 
7.447609 
7 . 644140 
7 . 840671 
8.037202 
8.233734 
8.430265 
8.626796 
8.823033 
9.019264 
9.215495 
9.411726 
9.607957 
9.804188 
10.000420 
10.196650 
10.392880 
10.585190 
10.785300 
10.981540 
11.177770 
11.374000 
11.570230 
11 . 766460 
11.962690 
12  . 158920 
12 . 355150 
12.551380 
12  .  747610 
12.943850 
13 . 140080 
13.336310 
13.532540 
13.728770 
13.925000 
14.121230 
14.317460 
1  14.513690 


1.600389 
1 . 599329 
1 .  599839 
1.598652 
1 .  599682 
1 . 601348 
1.599728 
1 . 600460 
1.600983 
1.600303 
1.597669 
1.595603 
1 .  596473 
1 .  594825 
1 .  595874 
1 . 596691 
1.595351 
1.597414 
1.597577 
1 .  597143 
1.596857 
1.596064 
1.596633 
1.595382 
1.596670 
1 .  596857 
1.597171 
1 . 597810 
1 .  598176 
1 . 598754 
1 . 598739 
1 . 598502 
1.598419 
1 . 597610 
1.597389 
1 . 597229 
1 . 597518 
1 . 597435 
1.597675 
1 . 597816 


0.195313 

0.194968 

0.195134 

0.194748 

0.195083 

0.195625 

0.195098 

0.195336 

0.195506 

0.195285 

0.194428 

0 . 193756 

0. 194039 

0.193503 

0.193844 

0. 194110 

0.193674 

0.194345 

0.194398 

0.194257 

0 . 194164 

0.193906 

0.194091 

0.193684 

0.194103 

0. 194164 

0.194266 

0 . 194474 

0.194593 

0. 194781 

0. 194776 

0. 194699 

0.194672 

0 . 194409 

0. 194337 

0.194285 

0.194379 

0.194352 

0.194430 

0 . 194476 
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N=1  ACTUAL  INFLOW  60T.NSR 


N=5K  ACTUAL  INFLOW  60%NSR  WBB=.i95 


N=20K  ACTUAL  INFLOW  60%NSR  WBB=.195 


N=25K  ACTUAL  INFLOW  60%NSR  WBB=.195 


N=30K  ACTUAL  INFLOW  60%NSR  WBB=J95 


N=35K  ACTUAL  INFLOW  607.NSR  WBB=195 


N=50K  ACTUAL  INFLOW  60%NSR  WBB=.195 


N=55K  ACTUAL  INFLOW  60%NSR  WBB=.195 


N=60K  ACTUAL  INFLOW  607.NSR  WBB=.195 


N=65K  ACTUAL  INFLOW  607.NSR  WBB=.195 


N=80K  ACTUAL  INFLOW  60%NSR  WBB=.195 


N=85K  ACTUAL  INFLOW  60%NSR  WBB=.195 


N=90K  ACTUAL  INFLOW  607.NSR  WBB=195 


N=95K  ACTUAL  INFLOW  607.NSR  WBB=.195 


N=UOK  ACTUAL  INFLOW  607.NSR  WBB=.195 


N=115K  ACTUAL  INFLOW  607.NSR  WBB=.195 


N=120K  ACTUAL  INFLOW  60%NSR  WBB=.l95  N=125K  ACTUAL  INFLOW  607.NSR  WBB=.195 


•JO  OJ3  O-JO  0.30  0*0  040  050  000  OJO  OJO  030  075  OJO  OJO  0*5  030  030  040  045  030  030  030  030  030  030  040 

RCFT)  RtfT) 

N=140K  ACTUAL  INFLOW  60%NSR  WBB=.195  N=145K  ACTUAL  INFLOW  60%N SR  WBB=.I95 


N=150K  ACTUAL  INFLOW  60%NSR  WBB=.195 


N=155K  ACTUAL  INFLOW  60%NSR  WBB=.195 


N=170K  ACTUAL  INFLOW  60%NSR  WBB=.195 


N=175K  ACTUAL  INFLOW  60ZNSR  WBB=.195 


N=180K  ACTUAL  INFLOW  60%NSR  WBB=.195 


N=185K  ACTUAL  INFLOW  607.NSR  WBB=.195 


N=200K  ACTUAL  INFLOW  60%NSR  WBB=.195 


N=205K  ACTUAL  INFLOW  60%NSR  WBB=.195 


N=210K  ACTUAL  INFLOW  60%NSR  WBB=.i95 


N=215K  ACTUAL  INFLOW  60%NSR  WBB=.195 


N=230K  ACTUAL  INFLOW  60%NSR  WBB=.  195 


N=235K  ACTUAL  INFLOW  60%NSR  WBB=195 


N=260K  ACTUAL  INFLOW  607.NSR  WBB=.195 


N=265K  ACTUAL  INFLOW  60%NSR  WBB=.195 


N=270K  ACTUAL  INFLOW 


WBB=195 


N=275K  ACTUAL  INFLOW  607.NSR  WBB=195 


N=290K  ACTUAL  INFLOW  607.NSR  WBB=.195 


N=295K  ACTUAL  INFLOW  607.NSR  WBB=.195 


N=300K  ACTUAL  INFLOW  607.NSR  WBB=J96 


N=305K  ACTUALINFLOW  607.NSR  WBB=.195 


N=320K  ACTUALINFLOW  607.NSR  WBB=.195 


N=325K  ACTUALINFLOW  60%NSR  WBB=.195 


N=330K  ACTUAL  INFLOW  607.NSR  WBB=i96 


N=333K  ACTUAL  INFLOW  60%NSR  WBB=J95 


N=360K  ACTUAL  INFLOW 


WBB=i95 


te<36SK  ACTUAL  INFLOW  60%NSR  WBB=.195 


N=380K  ACTUAL  INFLOW  607.NSR  WBB=.195 


N=385K  ACTUAL  INFLOW  607.NSR  WBB=.195 


N=39QK  ACTUAL  INFLOW  60SNSR  WBB=i95 


N=395K  ACTUAL  INFLOW  60%NSR  WBB=.195 


N=i  PVf'PPI  ACTUAL  INFLOW  602NSR  N=2SK  PV^PPJ  ACTUAL  INFLOW  607.NSR 


N=1  PCl/PPI  ACTUAL  INFLOW  60%NSR  N=25K  PC1/PPI  ACTUAL  INFLOW  60%NSR 


WIT  VYU 


N=1  TCl/TO  ACTUAL  INFLOW  60%NSR 


N=25K  TCL/TO  ACTUAL  INFLOW  607.NSR 


N=50K  Pty'PPI  ACTUAL  INFLOW 


N=75K  PV(/PP1  ACTUAL  INFLOW  60%NSR 


N=50K  PC1/PPI  ACTUAL  INFLOW  605LNSR 


N=75K  PCL/PPI  ACTUAL  INFLOW  607.NSR 


N=50K  TC1/TO  ACTUAL  INFLOW  60%NSR 


N=75K  TCL/TO  ACTUAL  INFLOW  607.NSR 


N=100K  PCL/PPI  ACTUAL  INFLOW  60%NSR  N=125K  PCL/PPI  ACTUAL  INFLOW  607.NSR 


N=100K  TCI/TO  ACTUAL  INFLOW  607.NSR 


N=125K  TCI/TO  ACTUAL  INFLOW  607.NSR 


N=15QK  PtyPPl  ACTUAL  INFLOW  6023ISR 


N=175K  PV/PPI  ACTUAL  INFLOW  60%NSR 


N=150K  TCI/TO  ACTUAL  INFLOW  607.NSR 


N=175K  TCI/TO  ACTUAL  INFLOW  60%NSR 


N=200K  FVi/PPl  ACTUAL  INFLOW 


N=225K  PW/PPI  ACTUAL  INFLOW  60%NSR 


N=200K  TCL/TO  ACTUAL  INFLOW  607.NSR 


N=225K  TCL/TO  ACTUAL  INFLOW  607.NSR 


N=300K  PW/PPI  ACTUAL  INFLOW  602NSR 


N=300K  PCL/PPI  ACTUAL  INFLOW  60%NSR 
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N=300K  TCI/TO  ACTUAL  INFLOW  60%NSR 


N=325K  PW/PPI  ACTUAL  INFLOW  607.NSR 


N=325K  TCI/TO  ACTUAL  INFLOW  60%NSR 


N=350K  TCT/TO  ACTUAL  INFLOW  607.NSR  N=375K  TCL/TO  ACTUAL  INFLOW  607.NSR 


xonx  Vnx 
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N=450K  PV^PPI  ACTUAL  INFLOW  602NSR 


N=475K  PW/PP1  ACTUAL  INFLOW  60%NSR 


N=4oOK  PCL/PPI  ACTUAL  INFLOW  60%NSR  N=475K  PCL/PPI  ACTUAL  INFLOW  60%NSR 


N=450K  TCIyTO  ACTUAL  INFLOW  60%NSR 


N=475K  TCL/TO  ACTUAL  INFLOW  60%NSR 


APPENDIX  I 


NUMERICAL  CASE  4B  COMPUTATIONAL  DETAILS 


.  From  the  converged  solution  for  case  4a,  the  exit  backpressure  was 
lowered  to  47%  of  normal  shock  recovery,  and  the  Navier-Stokes  computer  code 
employing  the  adverse  pressure  gradient  modified  Cebeci- Smith  eddy  viscosity 
turbulence  model  was  applied.  Figure  78,  repeated,  shows  the  progress  of 
the  core  flow  normal  shock  to  a  new  stable  converged  solution  for  flow 
conditions  representative  of  the  actual  UTRC  experimental  conditions. 
Selected  Mach  contour,  nondimensionalized  wall  pressure,  line  of  symmetry 
pressure,  and  line  of  symmetry  temperature  plots  portray  the  flow  behavior. 
The  Mach  contour  plots  again  present  graphic  flow  images  from  M  «  0.0  to  M  «= 
5.0,  in  increments  of  0.20.  Clearly  visible  are  the  nozzle  profiles  and  the 
persistence  of  the  wall  bank  blower  flow  energizers  to  the  diffuser  exit. 
From  the  time  history  plot  it  may  also  be  noted  that  the  flow  rapidly 
achieves  a  new  converged  solution  when  the  initial  conditions  start  the 
computations  from  the  previously  converged  solution.  This  numerical 
experiment  required  14.5  hours  of  CRAY  1  CPU  time. 
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TABLE  IX 


NUMERICAL  CASE  4B  COMPUTED  SHOCK  POSITION  VS  TIME 


N 

CFL 

TIME 

R/Rde 

SPOS 

Number  of 

(Milliseconds) 

Iterations 

0 

0 

1.597675 

0.194430 

5,000 

.50 

0.220834 

1.562721 

0.183059 

10,000 

0.441668 

1.563867 

0.183432 

15,000 

0.662503 

1.676240 

0.219988 

20,000 

0.883337 

1.960568 

0.312483 

25,000 

1.104171 

2.170927 

0.380915 

30,000 

1.325005 

2.188937 

0.386774 

35,000 

1.545839 

2.151315 

0.374535 

40,000 

i 

1.766673 

2.077426 

0.350498 

45,000 

1.987507 

2.012340 

0.329325 

50,000 

2.208342 

1.981342 

0.319241 

55,000 

2.429176 

1.955118 

0.310710 

60,000 

2.650010 

1.973851 

0.316804 

65,000 

2.870888 

2.025909 

0.333739 

70,000 

3.091722 

2.042674 

0.339193 

75,000 

3.312557 

2.060008 

0.344832 

80,000 

3.533391 

2.055926 

0.343504 

85,000 

3.754225 

2.039004 

0.337999 

90,000 

3.975059 

2.019266 

0.331578 

95,000 

4.195893 

2.024903 

0.333412 

100,000 

4.416727 

2.034101 

0.336404 

105,000 

4.637517 

2.040018 

0.338329 

110,000 

4.858351 

2.049022 

0.341258 

115,000 

i 

i 

5.079186 

2.053442 

0.342696 

120,000 

5.300020 

2.049784 

0.341506 

125,000 

5.520854 

2.043320 

0.339403 

130,000 

5.741688 

2.043606 

0.339496 

135,000 

5.962522 

2.043578 

0.339487 

140,000 

6.183356 

2.048066 

0.340947 

145,000 

6.404191 

2.052449 

0.342373 

150,000 

6.625025 

2.056851 

0.343805 

155,000 

6 . 845859 

2.056123 

0.343568 

160,000 

i 

7.066693 

2.055966 

0.343517 

165,000 

7 . 287527 

2.053565 

0.342736 

170,000 

7.508361 

2.054946 

0.343185 

175,000 

7.729195 

2.053117 

0.342590 

180,000 

7.950030 

2.056246 

0.343608 

185,000 

8.171931 

2.059326 

0.344610 

190,000 

8.391698 

2.060909 

0.345125 

195,000 

8.612532 

2.064214 

0.346200 

200,000 

8.833366 

2.063691 

0.346030 

N 

Number  of 
I terations 

205,000 

210,000 

215,000 

220,000 

225,000 

230,000 

235,000 

240,000 

245,000 

250,000 

255,000 

260,000 

265,000 

270,000 

275,000 

280,000 

285,000 

290,000 

295,000 

300,000 


CFL  TIME  R/R 

'  de 

(Milliseconds) 


SPOS 


9.050809 
9.268102 
9.485396 
9.702689 
9.919982 
10.137270 
10.354570 
10.571860 
10.789150 
11.006450 
11.223740 
11.441030 
11.658330 
11.875620 
12.092910 
12.310210 
12 . 527500 
12.744790 
12.962090 
13.175030 


2.060599 

2.058800 

2.059234 

2.059234 

2.060915 

2.059664 

2.059867 

2.058256 

2.055610 

2.054712 

2.054850 

2.055314 

2.054946 

2.056347 

2.056230 

2.055262 

2.055450 

2.054063 

2.053642 

2.054097 


0.345024 
0.344439 
0.344580 
0.344580 
0.345127 
0.344720 
0.344786 
0.344262 
0.343401 
0.343109 
0.343154 
C. 343305 
0.343185 
0.343641 
0.343603 
0.343288 
0.343349 
0.342898 
0.342761 
0.342909 
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N=125K  ACTUAL  INFLOW  477.NSR  WBB=.195 


N=150K  ACTUAL  INFLOW  477.NSR  WBB=.  195 


N=2SK  PtyPPl  ACTUAL  INFLOW  <7T^NSR  N=50K  PVJ/PPI  ACTUAL  INFLOW  47/iNSR 


in  UO  U1  uo  to  UO  US  UO  1<I  Ul 
R/RDE 


iauouiuiu5uouiui 

R/RLE 


N=25K  PCL/PPI  ACTUAL  INFLOW  477.NSR  N=SOK  PCL/PPI  ACTUAL  INFLOW  477.NSR 


US  DO  U5  Ufl  OJ  UK)  US  UO  *40 

R/RD 


UlUOlRUPUtUOMWUUOM 

R/fcD 


N=25K  TCL/TO  ACTUAL  INFLOW  47%NSR  N=50K  TCL/TO  ACTUAL  INFLOW  477.NSR 


N=125K  PV^PPI  ACTUAL  INFLOW 


N=i50K  PW/FP1  ACTUAL  INFLOW  47%NSR 


N=225K  TO/TO  ACTUAL  INFLOW  47%NSR 


N=250K  TCI/TO  ACTUAL  INFLOW  477.NSR 


APPENDIX  J 


NUMERICAL  CASE  4C  COMPUTATIONAL  DETAILS 

From  the  converged  solution  for  case  4b,  the  adverse  pressure  gradient 
modification  to  the  standard  Cebeci-Smith  eddy  viscosity  turbulence  model  in 
the  Navier-Stokes  computer  code  were  "turned  off,"  and  the  algorithm  was 
marched  forward  in  time  employing  the  basic  Cebeci-Smith  model.  The  exit 
backpressure  was  maintained  at  47%  of  normal  shocx  recovery,  and  the  inflow 
conditions  were  again  representative  of  the  actual  UTRC  experimental  flow 
profiles.  Figure  90,  repeated  here,  shows  the  rapid  "unstart"  of  the 
diffuser  flow  from  the  stable,  converged,  "started"  initial  condition,  in 
slightly  more  than  2.0  milliseconds.  Selected  Mach  contour, 
nondimensionalized  wall  pressure,  line  of  symmetry  pressure,  and  line  of 
symmetry  temperature  plots  portray  the  flow  behavior,  and  show  the  rapid 
growth  of  the  wall  boundary  layer  separatio.'  region  and  breakdown  of  the 
core  flow.  The  Mach  contour  plots  again  present  graphic  flow  images  from  M 
=  0.0  to  M  -  5.0,  in  increments  of  0.20.  Again,  line  of  symmetry  pressure 
and  temperature  are  seen  to  significantly  lag  the  wall  pressure  as 
indicators  of  overall  diffuser  flow  behavior.  Without  the  additional 
"stiffening"  of  the  eddy  viscosity  turbulence  model  achieved  through 
incorporation  of  the  modification  developed  in  Chapter  V,  the  wall  boundary 
layer  separation  grows  uncontrollably  and  causes  the  core  flow  to  choke, 
leading  to  diffuser  "unstart."  This  numerical  experiment  required  2.4  hours 
of- CRAY  1  CPU  time. 
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TABLE  X 


NUMERICAL  CASE  4C  COMPUTED  SHOCK  POSITION  VS  TIME 


N  CFL  TIME 


Number  of  (Milliseconds) 

Iterations 


R/Rde 


SPOS 


0 

5,000 

10,000 

15,000 

20,000 

25,000 

30,000 

35,000 

40,000 

45,000 

50,000 


.50 


0 

0.204322 

0.408523 

0.612725 

0.816926 

1.021127 

1.225329 

1.429530 

1.633731 

1.837934 

2.042141 


2.054097 

2.082405 

2.001089 

1.900874 

1.860132 

1.814080 

1.787998 

1.689455 

1.461307 

1.143177 

1.014093 


0.342909 

0.352118 

0.325665 

0.293064 

0.279810 

0.264829 

0.256344 

0.224287 

0.150068 

0.046577 

0.0045847 


BASIC  CEBECI-SMITH  TIME  HISTORY  47%NSR  A.F. 


330 


N=35K  CSB  ACTUAL  INFLOW  477.NSR 


N=40K  CSB  ACTUAL  INFLOW  47%NSR 


n 

£§^9bbs£ 

JinSSi 

Dr 

I 

000  020  030  II  040  040  030  030  OOO  OJO  070  070  OOO 

R(FT.) 


OOO  020  030  030  040  040  0  30  000  000  OOO  070  070 

R(FT) 


N=45K  CSB  ACTUAL  INFLOW  47%NSR 


N=50K  CSB  ACTUAL  INFLOW  47%NSR 


N=5K  PW/PPI  CSB  ACTUAL  INFLOW  47T5NSR 


N=10K  PW/PPI  CSB  ACTUAL  INFLOW  47%NSI< 


N=15K  PW/PPI  CSB  ACTUAL  INFLOW  477.NSR 


N=SOK  PW/PPI  CSB  ACTUAL  INFLOW  47%NSR 


N=25K  PW/PPI  CSB  ACTUAL  INFLOW  477.NSR 


N=30K  PW/PPI  CSB  ACTUAL  INFLOW  477.NSR 


N=45K  Pty-TPl  CSB  ACTUAL  INFLOW  4^.NSR 


N=50K  PW/PPI  CSB  ACTUAL  INFLOW  47%NSR 


too  IJS,  1-50  |.75  in  U3  tu  tn  100  US  UO  in  4-00  IXD  US  uo  1.75  2-00  12J  230  175  loo  12S  350  575  4  00 

R/RDE  r/rde 


N=45K  PCL/PPI  CSB  ACTUAL  INFLOW  47%NSR  N=50K  PCL/PPI  CSB  ACTUAL  INFLOW  47%NSR 


N=45I<  1CL/T0  CSB  ACTUAL  INFLOW  47%NSR 


N=50K  TCL/TO  CSB  ACTUAL  INFLOW  47T.NSR 


APPENDIX  K 


NUMERICAL  CASE  4D  COMPUTATIONAL  DETAILS 

The  adverse  pressure  gradient  modified  Cebeci-Smith  eddy  viscosity 
turbulence  model,  applied  to  the  actual  UTRC  experimental  inflow  profiles 
with  an  exit  pressure  set  at  47%  of  normal  shock  recovery,  was  subjected  to 
a  sensitivity  analysis  where  the  value  of  the  von  Karman  (universal  mixing 
length)  constant  was  increased  from  its  nominal  value  of  0.40  to  0.50 
rather  than  to  0.65,  the  value  computed  by  Jobe  and  Hankey.  The  immediate 
response  of  the  sublayer  thickness  parameter  (A+)  from  its  nominal  value  of 
26  to  65  in  the  pressence  of  an  adverse  pressure  gradient  was  retained,  as 
was  the  change  rate  of  the  Clauser  constant  k^  that  was  employed  in  the 
adverse  pressure  gradient  modification  developed  in  Chapter  V.  The 
algorithm  was  marched  forward  in  time  from  the  converged  47%  NSR  case  (Case 
4b).  Figure  91,  repeated  here,  shows  that  the  core  flow  normal  shock 
performs  a  periodic  oscillation  in  the  diffuser,  but  the  diffuser  does  not 
"unstart."  The  selected  Mach  contours  show  that  although  the  wall  boundary 
layer  separation  region  does  grow,  it  does  not  do  so  uncontrollably,  and  as 
a  result  the  core  flow  does  not  choke  but  over-responds  to  the  changing  wall 
boundary  layer  conditions.  Each  Mach  contour  plot  is  again  presented  from 
M  »  0.0  to  M  -  5.0,  in  increments  of  0.20. 

This  numerical  experiment  required  19.3  hours  of  CRAY  1  CPU  time. 
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TABLE  XI 


NUMERICAL  CASE  4D  COMPUTED  SHOCK  POSITION  VS 


N 

CFL 

TIME 

R/Rde 

Number  of 

(Milliseconds) 

Iterations 

0 

0 

2.054097 

5,000 

.50 

0.209000 

2.177890 

10,000 

0.418040 

2.157410 

15,000 

0.627090 

2.133640 

20,000 

0.836130 

2.111030 

25,000 

1.045140 

2.090350 

30,000 

1.254220 

2.081370 

35,000 

1.463270 

2.089530 

40,000 

1.672310 

2.111700 

45,000 

1.881360 

2.138600 

50,000 

2.090400 

2.156800 

55,000 

2.299450 

2.167700 

60,000 

2.508490 

2.153200 

65,000 

2.717530 

2.136400 

70,000 

2.926580 

2.118000 

75,000 

3.135620 

2.094700 

80,000 

3.344670 

2.069000 

85,000 

3.553710 

2.040000 

90,000 

3.762760 

1.981400 

95,000 

3.971800 

1.894300 

100,000 

4.180800 

1.818200 

105,000 

4.389850 

1.793610 

110,000 

4.598890 

1.839100 

115,000 

4.807940 

1.930100 

120,000 

5.016980 

2.032000 

125,000 

5.226030 

2.113900 

130,000 

5.434750 

2.180300 

135,000 

5.644120 

2.228100 

140,000 

5.853160 

2 . 249200 

145,000 

6.062210 

2.231800 

150,000 

6.271250 

2.169800 

155,000 

6.480300 

2.119800 

160,000 

6 . 689340 

2.092300 

165,000 

6.898380 

2.086400 

170,000 

7.107430 

2.079460 

175,000 

7.316470 

2.065200 

180,000 

7.525520 

2.036800 

185,000 

7 . 734560 

1 . 961200 

190,000 

7.943610 

1 . 865400 

195,000 

8.152650 

1.801400 

200,000 

1 

8.361660 

1.804900 

TIME 


SPOS 


0.342909 

0.383180 

0.376518 

0.368786 

0.361431 

0.354703 

0.351780 

0.354437 

0.361655 

0.370411 

0.376317 

0.379856 

0.375152 

0.369686 

0.363697 

0.356124 

0.347777 

0.338359 

0.319271 

0.290921 

0.266164 

0.259390 

0.272956 

0.302568 

0.335719 

0.362363 

0.383964 

0.399514 

0.406375 

0.400730 

0.380552 

0.364280 

0.355327 

0.353409 

0.351159 

0.346505 

0.337297 

0.312689 

0.281537 

0.260705 

0.261842 
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N 


CFL 


TIME 


SPOS 


Number  of 
Iterations 

205,000 

210,000 

215,000 

220,000 

225,000 

230,000 

235,000 

240,000 

245,000 

250,000 

253,000 

260,000 

265,000 

270,000 

275,000 

280,000 

285,000 

290,000 

295,000 

300,000 

305,000 

310,000 

315,000 

320,000 

325,000 

330,000 

335,000 

340,000 

345,000 

350,000 

355,000 

360,000 

365,000 

370,000 

375,000 

380,000 

385,000 

390,000 

395,000 

400,000 


R/R 


de 


(Milliseconds ) 


.50 


8.570740 

8.779790 

8.988830 

9.197880 

9.406920 

9.615960 

9.825010 

10.034050 

10.243100 

10.452140 

10.661190 

10.870230 

11.079280 

11.288320 

11.497370 

11.706410 

11.915410 

12.124460 

12.333500 

12.542510 

12.751550 

12.960550 

13.169650 

13.378650 

13.587750 

13.796750 

14.005850 

14.214850 

14.423950 

14.632950 

14.842050 

15.051150 

15.260150 

15.469250 

15.678150 

15.887250 

16.096250 

16.305350 

16.514350 

16.723350 


1.871080 
1.966755 
2.054677 
2.130783 
2.190111 
2.234905 
2.246578 
2.211652 
2.151108 
2 . 108179 
2.091507 
2.083364 
2.073510 
2.055014 
2.013658 
1.927594 
1.838404 
1.793707 
1.825057 
1.902331 
2.001123 
2.085043 
2.149332 
2.206060 
2.242523 
2.241075 
2.188885 
2.135499 
2.099226 
2.088722 
2.080066 
2.068496 
2.046498 
1.991185 
1.893149 
1.813170 
1.794889 
1 . 844092 
1.936431 
2.032890 


0.283372 

0.314496 

0.343097 

0.367856 

0.387156 

0.401728 

0.405530 

0.394163 

0.374468 

0.360503 

0.355079 

0.352430 

0.349498 

0.343207 

0.329754 

0.301756 

0.272742 

0.258201 

0.266155 

0.293538 

0.325676 

0.352976 

0.373890 

0.392344 

0.404206 

0.403735 

0.386757 

0.369390 

0.357590 

0.354173 

0.351357 

0.347593 

0.340437 

0.322443 

0.290551 

0.264533 

0.258586 

0.274592 

0.304631 

0.336010 
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APPENDIX  L 


NUMERICAL  CASE  4E  COMPUTATIONAL  DETAILS 

For  this  numerical  case  a  second  sensitivity  analysis  of  the  adverse 
pressure  gradient  modification  to  the  basic  Cebeci-Smith  eddy  viscosity 
turbulence  model  was  accomplished.  Flow  conditions  were  again  based  on  the 
actual  UTRC  experimental  inflow  profiles,  with  exit  pressure  set  at  47%  of 
normal  shock  recovery.  The  full  inner  region  modifications  were  employed, 
but  the  change  rate  in  the  outer  region  (Clauser)  constant  was  relaxed 
from  0.015  to  0.010.  The  solution  was  then  marched  forward  from  the  case  4b 
converged  solution  for  these  flow  conditions  with  this  less  stiff  eddy 
viscosty  turbulence  model.  Again,  the  core  flow  normal  shock  is  observed  to 
oscillate  in  the  diffuser  without  "unstarting."  Figure  92,  repeated  here, 
presents  this  information.  The  selected  Mach  contour  plots  present  this 
flow  behavior  graphically,  showing  the  "over-recovery"  from  the  wall 
boundary  layer  separation.  Each  Mach  contour  plot  is  again  presented  from  M 
-  0.0  to  M  =  5.0,  in  increments  of  0.20. 

This  numerical  experiment  required  19.3  hours  of  CRAY  1  CPU  time. 
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TABLE  XII 


NUMERICAL  CASE  4E  COMPUTED  SHOCK  POSITION  VS  TIME 


N 

CFL 

TIME 

R/Rde 

SPOS 

Number  of 

(Milliseconds) 

Iterations 

0 

0 

2.054097 

0.342909 

5,000 

.  50 

0.209000 

2 .179000 

0.383541 

10,000 

0.418040 

2  . 148200 

0.373519 

15,000 

0.627090 

2.127600 

0.366825 

20,000 

0.836130 

2.096400 

0.356675 

25,000 

1.045180 

2.061800 

0.345410 

30,000 

1 . 254220 

2.050500 

0.341730 

35,000 

1.463270 

2.074990 

0.349706 

40,000 

1.672310 

2 . 102130 

0.358535 

45,000 

1.881360 

2 .134600 

0.369112 

50,000 

2.090400 

2.150900 

0.374402 

55,000 

2.301450 

2.152600 

0.374952 

60,000 

2.508490 

2.124000 

0.365651 

65,000 

2.717530 

2.088900 

0.354235 

70,000 

2.926580 

2.062000 

0.345490 

75,000 

3.135620 

2.041700 

0.338862 

80,000 

3.344670 

2.014300 

0.329966 

85,000 

3.553710 

1.973000 

0.316537 

90,000 

3.762760 

1.886100 

0.288268 

95,000 

3.971800 

1.930100 

0.251116 

100,000 

4.180800 

1.687400 

0.223640 

105,000 

4.389850 

1.691395 

0.224918 

110,000 

4.598890 

1 . 782483 

0.254550 

115,000 

4 . 807940 

1 . 918267 

0.298722 

120,000 

5.016990 

2.048549 

0.341104 

125,000 

5.226030 

2.123471 

0.365477 

130,000 

5.435070 

2 . 180625 

0.384070 

135,000 

5.644120 

2 . 255495 

0.408426 

140,000 

5 .853160 

2 . 286177 

0.418407 

145,000 

6.062210 

2.216222 

0.395650 

150,000 

6.271250 

2.079187 

0.351071 

155,000 

6.479250 

2.021720 

0.332376 

160,000 

6.689340 

2.009085 

0.328266 

165,000 

6.898380 

2.024656 

0.333332 

170,000 

7.107430 

2.075383 

0.349833 

175,000 

7.316470 

2 .131902 

0.368220 

180,000 

7 . 525520 

2 . 168335 

0.380078 

185,000 

7. 734560 

2 .178318 

0.383319 

190.000 

7  943610 

2  .131387 

0.368052 

195,000 

8  .  1  52650 

2.094292 

0.355985 

200,000 

8  .  361  660 

2.073585 

0. 349249 

N 


CFL 


TIME 


SPOS 


Number  of 
I cerations 

205,000 

210,000 

215,000 

220,000 

225,000 

230,000 

235,000 

240,000 

245,000 

250,000 

255,000 

260,000 

265,000 

270,000 

275,000 

280,000 

285,000 

290,000 

295,000 

300,000 

305,000 

310,000 

315,000 

320,000 

325,000 

330,000 

335,000 

340,000 

350,000 

355,000 

360,000 

365,000 

370,000 

375,000 

380,000 

385,000 

390,000 

395,000 

400,000 


R/Rde 


(Milliseconds) 


.50 


8.570700 
8.779740 
8.988790 
9.197830 
9.406880 
9.615920 
9.824970 
10.034010 
10.243060 
10.452100 
10.661150 
10.870190 
11.079240 
11.288280 
11.497320 
11.706370 
11.915410 
12.124460 
12.333500 
12.542510 
12.751550 
12.960590 
13.169640 
13.378680 
13.587730 
13 . 796770 
14.005820 
14.214860 
14.632950 
14.842000 
15.051040 
15 . 260090 
15.469130 
15.678170 
15 . 887220 
16.096260 
16.305310 
16 . 514350 
16.723360 


2.051752 
2.033054 
1.999435 
1.925090 
1.810901 
1.708070 
1.673300 
1.739862 
1.862145 
1 . 998779 
2.094523 
2.151935 
2.224869 
2.282467 
2.244293 
2.130172 
2.025790 
2.010736 
2.011354 
2.051986 
2.109980 
2.160317 
2 . 178744 
2.161871 
2 . 117372 
2.085540 
2.063735 
2.043592 
1.972451 
1.880451 
1.762268 
1 . 680970 
1.688610 
1 . 782506 
1 . 918999 
2.047002 
2 . 119449 
2 . 1809S9 
2 .254392 
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0.220017 
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0.333701 

0.328803 
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0.342222 

0.361088 
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0.383458 

0.377969 

0.363493 

0.353138 

0.346044 

0.339492 

0.316349 

0.286420 

0.247974 

0.221527 

0.223866 

0.254558 

0.298960 

0.340601 

0.364169 

0 . 384188 

0.408067 
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APPENDIX  M 


COMPUTATIONAL  GRIDS 

Plots  of  the  key  computational  grids  employed  in  this  investigation  are 
provided  on  the  following  pages.  All  of  the  grids  were  purely  rectangular 
and  employed  exponentially  stretched  mesh  spacing  as  described  in  Chapter 
III . 
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APPENDIX  N 


RICHARDSON'S  EXTRAPOLATION  TECHNIQUE 

•  A  traditional  Richardson's  extrapolation  technique  was  applied  to  the 
wall  pressure  solution  obtained  for  the  60%  NSR  actual  inflow  solution 
(numerical  case  4a) .  The  basic  70X103  grid  was  replaced  with  a  140X103 
grid,  where  the  spacing  between  the  grid  points  normal  to  the  wall  was  half 
that  of  the  basic  grid.  For  the  70X103  grid,  Ax  .  =  0.0001  ft.  (the 

spacing  for  the  first  grid  point  away  from  the  wall;  i  =  1)  .  For  the 
140X103  grid,  Ax  .  -  0.00005  ft.  For  each  point  in  the  streamwise  (i) 

b  min  V 

direction,  the  extrapolation  technique  was  applied  to  develop  the  wall 
pressure  ratio  for  a  theoretical  zero  grid  spacing  (an  infinite  number  of 
grid  points).  The  extrapolations  for  selected  streamwise  locations  (j  -  20, 
30,  40,  50,  60,  65,  70,  72,  75,  80,  90,  95)  are  presented  in  this  appendix, 
as  are  the  resulting  wall  pressure  ratio  plot  and  a  comparison  of  that  plot 
to  the  solutions  on  the  two  computational  grids.  Except  for  the  region 
where  separation/recirculation  affects  the  solution,  the  extrapolation 
technique  shows  very  little  change  in  the  solutions  for  grid  refinement. 

Even  in  the  separation/recirculation  region,  the  change  in  the  computed  wall 
pressure  solution  is  minor.  Thus,  the  truncation  error  is  demonstrated  not 
to  be  attributable  to  grid  spacing. 
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WP  Ratio  60%NSR  Richardson's  Ext  J=20 
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